Цитата:
|
Сообщение от arach
Задержка заработала, но форма очень сильно зависает sleep(10000);
|
Чтобы не зависало вместо sleep(10000) пиши:
Код:
var
j: Integer;
begin
for j := 1 to 100 do
begin
Sleep(100);
Application.ProcessMessages;
end;
end;
Цитата:
|
Сообщение от arach
Если выполнить в отдельном потоке висеть форма не будет?  |
Чаще всего для этого отдельные потоки и делают.