Terminated в потомке класса TThread

[Dr. MefistO]

Проблема такая: создал потомок класса TThread, запустил его из своей программы. Но как дождаться его завершения?

У меня в Execute идет основной бесконечный цикл, который прерывается при определенном внутреннем условии (в файле найдена определенная сигнатура, или конец файла достигнут).

Но как основной программе узнать, что Execute завершен? Почему-то Terminated состояние из основной программы не доступно.

Вызывается поток следующим образом:

  ScanThread := TScanThread.Create(fScanName, fResName); //тут переопределен конструктор. Он вызывает inherited.
  ScanThread.FreeOnTerminate := True;
  ScanThread.Priority := tpHighest;
  ScanThread.Resume;

----

Решил проблему свойством потока OnTerminate.

[Stilet]

Но как дождаться его завершения?

ScanThread.WaitFor;

[Dr. MefistO]

Увы, нет. Т.к. программа висит до самого завершения потока. А надо как-бы апдейтить форму еще. Создавать поток, который запустит мой поток и будет его ждать?

[Stilet]

Зачем ждешь завершения?
Может достаточно будет обрабатывать его событие OnTerminate?

[Dr. MefistO]

OnTerminate вариант не плохой, даже нормальный. Просто в процедуре вызова потока сканирования, где и объявлена переменная потока нужно вывести сообщение о времени, затраченном на работу потока. Делать это в самом потоке мне не подходит. А делать переменную потока в protected главной формы как-то не очень.

Сделал так, как на одном форуме вычитал. В public потока добавил строчку:

property Terminated;

Ну и в коде программы сделал until Terminated. Теперь работает.