Nach dem Anzeigen etwas tun ..

[wurzelsepp1]

Moin Gemeinde :)

Ich hab 15 Jahr Delphi-Pause gemacht und alles vergessen, sorry ..

Einfach Frage:
Ich möchte ein Formular anzeigen und erst, wenn es vollständig sichtbar ist, eine Aktion starten.
Mit On Form Show geht das nicht, da dieses Ereignis vor der Darstellung des Formuars aufgerufen wird.

Hintergrund:
Eine etwas zeitintensive Remote-Server-Abfrage soll mit entsprechenden Statusmeldungen garniert werden. Die sollten natürlich zu sehen sein, bevor die Abfrage beginnt.

Also etwa so:
Anzeige "Bitte warten Sie .."
Remoteserver.Connect;
(10 Sek. später)
Anzeige "Hier das Ergebnis"
Die Serververbindung liefert leider kein Ereignis, bevor nicht etwas passiert oder beendet ist ..

Any idea?

Danke,
Alex

[haentschman]

Moin...

Bitteschön. Da hab ich meine Nettigkeiten für heute weg.

Delphi-Quellcode:

const
  conMessageAfterShow = WM_USER + 1;
...
TfoMain = class(TForm)
  private
    procedure AfterShowMessage(var Msg: TMessage); message conMessageAfterShow;
  public
  end;
...
procedure TfoMain.FormShow(Sender: TObject);
begin
  PostMessage(Self.Handle, conMessageAfterShow, 0, 0);
end;
...
procedure TfoMain.AfterShow(Sender: TObject);
begin
  // dein Kram :-)
end;

[hoika]

Halo,
FormActivate hätte man auch nehmen können.
also vorletzte Zeile ein Application.ProcessMessages und dann dein Code.

[haentschman]

Zitat:

Application.ProcessMessages

...er hat Jehowa gesagt.

[DieDolly]

Ich gebe eine Zutat dazu: WMFormVisible.