Laufzeit erstellte Komponenten in den Vordergrund stellen

[Hawkeye219]

Hallo Alexander,

Ich hoffe, Du verwechselst Parent und Owner nicht. BringToFront funktioniert nur innerhalb einer Ebene, d.h. beide Control müssen den selben Parent besitzen. Liegt auch nur eines der Controls auf einem weiteren TWinControl (z.B. TPanel), so funktioniert BringToFront nicht mehr.

Der folgende Code funktioniert bei mir einwandfrei:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
  var TheLabel : TLabel;
      TheShape : TShape;
begin
  TheLabel := TLabel.Create(Self);
  TheLabel.Parent := Self;
  TheLabel.SetBounds (8, 8, 100, 30);
  TheLabel.Caption := 'Hallo';

  TheShape := TShape.Create(Self);
  TheShape.Parent := Self;
  TheShape.SetBounds (0, 0, 200, 100);

  TheLabel.BringToFront;
end;

Gruß Hawkeye