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 :lol: )

[derpepe]

Zitat:

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 :lol: )

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:

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:

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:

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