Ich habe einen Thread, der kontinuierlich Daten verarbeitet und ein Fenster mit einem Memo, welches eine Instanz des Threads erstellt und mit einem Abbrechen-Schalter den Thread manuell beenden kann:
Delphi-Quellcode:
VAR Th1 : TBeispielThread;
...
PROCEDURE TBeispielForm.AbbrechenClick(Sender: TObject);
BEGIN
Th1.Terminate;
Th1.WaitFor;
END;
Nun soll aber für den Fall, dass der Thread die Arbeit erledigt hat, das Fenster automatisch geschlossen werden, und dafür gibt es ja die Terminated-Eigenschaft. Diese ist allerdings nur innerhalb des Threads aufrufbar. Nun wollte ich auf dem Formular einen Timer mit etwa 3 Sekunden einrichten, der jedesmal prüft, ob der Thread geschlossen ist und wenn ja, das Formular mit Close geschlossen wird. Wie kann man das machen bzw. ist dies überhaupt der richtige Weg, auf die Beendigung eines Threads zu warten ?
Danke für die Antworten.