psa1974
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
// Этот код выполняется в главном потоке (например, Button1Click)
EnterWorkerThread;
try
{ Этот код выполняется во вторичном потоке }
{ Хотя это код Button1Click, но он выполняется, как если бы он был помещён в TThread.Execute. }
{ рисуешь тут свой цикл, при этом скоко бы он не выполнялся, интерфейс программы
не замораживается, само собой}
finally
LeaveWorkerThread;
end;
// Этот код выполняется в главном потоке
end; |
