Feststellen, ob Form schon komplett angezeigt ist

[s.h.a.r.k]

Hallo!

Hab heute gleich nochmals eine Frage: Und zwar wie der Titel schon sagt: Wie kann ich feststellen, ob eine gewisse Form schon komplett angezeigt ist, d.h. schon auf den Desktop gezeichnet ist!?

Vielen Dank schon mal für eure Antworten!

mfg shark

[freak24]

Wenn mich nicht alles täuscht dürfte dann die Eigenschaft Visible auf True stehen. Wenn ein Form nicht angezeigt wird steht es jedenfalls auf False.
(Schlagt mich wenn ich Müll erzähle )

[derpepe]

Zitat von freak24:

Wenn mich nicht alles täuscht dürfte dann die Eigenschaft Visible auf True stehen. Wenn ein Form nicht angezeigt wird steht es jedenfalls auf False.
(Schlagt mich wenn ich Müll erzähle )

Müll erzählst Du nicht, aber ich glaube das meint er nicht.

Ich weiß es jetzt nicht genau, aber ist die Form nicht komplett gezeichnet wenn OnShow aufgerufen wird?

[nailor]

nein. Beweis:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
Sleep(1000);
end;

PS: http://www.delphipraxis.net/internal...=397459#397459

[shmia]

Zitat von s.h.a.r.k:

Wie kann ich feststellen, ob eine gewisse Form schon komplett angezeigt ist, d.h. schon auf den Desktop gezeichnet ist!?

Warum willst du das überhaupt wissen ?
Wenn du eine Aktion ausführen möchtest, direkt nachdem das Formular angezeigt wurde, gibt es hier eine Lösung mit Windows Messages.
http://www.delphipraxis.net/internal...ct.php?t=23524
Wie Nailor schon gezeigt hat, ist das Event OnShow zu früh und AfterShow gibt's nicht.
http://www.delphipraxis.net/internal_redirect.php?t=200

[derpepe]

Zitat von nailor:

nein. Beweis:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
Sleep(1000);
end;

PS: http://www.delphipraxis.net/internal...=397459#397459

überzeugt

[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;

[QuickAndDirty]

mal ganz davon abgesehen das du wenn OnActive eintritt auch davon ausgehen kannst das es angezeigt wird