Kann man Thread.Terminated ausserhalb des Threads verwenden?

[devidespe]

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.

[jfheins]

Hat der Thread nicht ein OnTerminated Event ?

[devidespe]

Dieses Ereignis habe ich deswegen noch nicht zugewiesen, da ich ihm nur eine Procedure innerhalb des Threads zuweisen kann.

Ich muss aber aus dem Hauptformular eine Möglichkeit finden, ob der Thread beendet ist, und nicht im Thread selbst...

[devidespe]

Okay, ich habs doch mit Onterminated gelöst.