Eingabefenster automatisch anzeigen lassen

[haentschman]

Moin...

Zitat:

Das Hauptfenster sollte schon zu sehen sein und wenn das fertig aufgebaut ist, sollte das Eingabefenster aufpoppen.

1. OnActivate ist das gaaanz falsche Event. Lies dir mal die Hilfe dazu durch.
2. OnShow ist fast das richtige Event. Das Problem ist, wenn du das Popup Form hier erzeugst ist das Hauptfenster noch nicht sichtbar weil durch den Dialog das OnShow nicht durchlaufen.

Lösung:
Im OnShow eine Message absetzen und eine "AfterShow" procedure erstellen und aufrufen.

Delphi-Quellcode:

const
  MessageAfterShow = WM_USER + 1;
...
private
procedure AfterShow(Sender: TObject);
procedure AfterShowMessage(var Msg: TMessage); message MessageAfterShow;
...
procedure TMyForm.FormShow(Sender: TObject);
begin
  PostMessage(Self.Handle, MessageAfterShow, 0, 0);
end;
...
procedure TMyForm.AfterShowMessage(var Msg: TMessage);
begin
  AfterShow(Self);
end;
...
procedure TMyForm.AfterShow(Sender: TObject);
begin
  Dialog.Execute; // sinngemäß
end;