Image foran andre komponenter

image1.bringtofront ?

ellers kan du ligge den på et panel hvor border er væk

Det er ikke kønt. Jeg kunne godt lave et TImage og vise det, men ikke placere det ovenover de komponenter der var - i dette tilfælde - i et TPanel. Derfor måtte jeg lege lidt med deres .Visible property.

procedure TfrmMain.cbHideClick(Sender: TObject);
var
  i : integer;
  bChecked : boolean;
begin
  bChecked := (Sender as TCheckBox).Checked;
  for i := 0 to pMain.ControlCount - 1 do
    pMain.Controls[i].Visible := not bChecked;
  if bChecked then begin
    fImage := TImage.Create(nil);
    fImage.Parent := pMain;
    fImage.Stretch := true;
    fImage.Align := alClient;
    fImage.Picture.LoadFromFile('e:\gejstlige.bmp');
  end // if
  else begin
    if assigned(fImage) then begin
      fImage.Free;
      fImage := nil;
    end; // if
  end; // else
end;

dkn: BringToFront duede ikke da jeg prøvede det, heller ikke SendToBack. Et TImage vil åbenbart ikke i front.