Nach dem Anzeigen etwas tun ..

[haentschman]

Moin...

Bitteschön. Da hab ich meine Nettigkeiten für heute weg.

Delphi-Quellcode:

const
  conMessageAfterShow = WM_USER + 1;
...
TfoMain = class(TForm)
  private
    procedure AfterShowMessage(var Msg: TMessage); message conMessageAfterShow;
  public
  end;
...
procedure TfoMain.FormShow(Sender: TObject);
begin
  PostMessage(Self.Handle, conMessageAfterShow, 0, 0);
end;
...
procedure TfoMain.AfterShow(Sender: TObject);
begin
  // dein Kram :-)
end;