Einzelnen Beitrag anzeigen

Benutzerbild von Stefan Hueg
Stefan Hueg

Registriert seit: 13. Jun 2004
Ort: Gießen
187 Beiträge
 
Delphi 2006 Professional
 
#1

Warten bis Formular angezeigt wurde

  Alt 15. Mai 2006, 18:24
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?
Stefan Hueg
  Mit Zitat antworten Zitat