Показать сообщение отдельно
  #9  
Старый 28.03.2014, 18:48
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от saylar_06
Спасибо, теперь пытаюсь после T1.Free; вызвать ShowMessage('done'); но ничего не происходит и при попытке закрыть форму программа зависает, пытался T1.Terminate; но что то не вышло
Свойство "Terminated" действительно автоматически не устанавливается в "True" по завершению потока, поэтому в конце методов "Execute" нужно самостоятельно вызывать "Terminate" сигнализируя, что поток завершился.
Или же, как вариант, реализовать ожидание завершения потоков через WaitForMultipleObjects вместо проверки свойства "Terminated".
Ответить с цитированием