Warten bis Formular angezeigt wurde

[Stefan Hueg]

Ok mein erstes Problem wurde vorhin gelöst, nun stehe ich vor einem Weiteren.

Ich habe also mein Haupt und Unterformular. Nun rufe ich vom Hauptformular aus das Unterformular mit frmSync.ShowModal auf.

Mein Problem: Wie sage ich frmSync, dass er ERST wartet bis das Formular gezeichnet wurde und DANN irgendwelche anderen Sachen macht. Bisher sieht das so aus:

Delphi-Quellcode:

procedure TfrmSync.FormShow(Sender: TObject);
begin
  lblConnect.Caption := frmMain.MSGs.Strings[18];
  lblSync.Caption := frmMain.MSGs.Strings[17];
  lblOld.Caption := frmMain.MSGs.Strings[15] + ':';
  lblNew.Caption := frmMain.MSGs.Strings[16] + ':';
  Timer1.Enabled := True;
  Application.ProcessMessages;
end;

procedure TfrmSync.Timer1Timer(Sender: TObject);
begin
  TimeTCP.Host := 'ntp1.fau.de';
  TimeTCP.ConnectAndGetAll;
  Timer1.Enabled := False;
end;

Was natürlich sehr unelegant ist. Habe das mit nem Timer gelöst der auf 500 ms steht. Wie man sehen kann, will ich ne Verbindung mit einer Indy-Komponente herstellen.

Geht das nicht irgendwie anders?

[Dax]

Ich denke TForm.OnActivate wird dir helfen, allerdings solltest du dabei ein Flag setzen, ob das, was du tun wolltest, schon getan wurde, damit du es nicht mehrmals tust :)

[Stefan Hueg]

Super, funktioniert. Danke :)