Цитата:
procedure TMyThread1.Execute;
begin
while not Terminated do
Synchronize(DoWork);
end;
procedure TMyThread1.DoWork;
begin
while true do
begin
end;
end;
|
Это ж гениально. Создаем поток, чтобы в фоне параллельно что-то делать, но сразу дергаем synchronize и навечно блокируем нормальную работу главного потока пустым циклом.