Feststellen, ob Form schon komplett angezeigt ist

[s.h.a.r.k]

Hallo!

Die Lösung zu meinem Problem findet ihr in diesem Beitrag von shima. Ich hab die nur ein paar kleine Fehler ausgebessert!

Zitat von shmia:

Du musst deinem Formular selbst eine benutzerdefinierte Message schicken:

Delphi-Quellcode:

  const
     UM_PSS_INIT = WM_USER + 100;

  TForm1 = class(TForm)
     protected
        procedure UM_INIT(var msg: TMessage); message UM_PSS_INIT;
  end;

Im Event OnShow schickst du deinem Formular selbst eine Message:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
   // zuerst eigene Dinge erledigen
   ....
 
   // schicke Message an eigenes Formular
   PostMessage(Self.Handle, UM_PSS_INIT, 0, 0);
end;

Sobald das Formular angezeigt wurde, wird die Message empfangen und verarbeitet:

Delphi-Quellcode:

procedure TForm1.UM_INIT(var msg: TMessage);
begin
   // hier deinen Programmcode einfügen
   ...
end;