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?