Moin...
Zitat:
Man könnte das auch mit einer eigenen Message lösen
...genau.
Delphi-Quellcode:
const
WM_AFTERSHOW = WM_USER + 100;
...
procedure FormAfterShow(var Msg: TMessage); message WM_AFTERSHOW;
...
procedure TfoMain.FormAfterShow(var Msg: TMessage);
begin
// das ist dann sichtbar...
end;
Genau wie ich oben schon erklärt habe.