Аналог функции Delay в Delphi -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [52.14.126.74]

Модераторы: jack128, Rouse_, Krid

Аналог функции Delay в Delphi

Vit

Сообщ. #1 , 10.11.03, 20:10

Guru

Рейтинг (т): 181

Для небольших промежутков можно использовать:

CODE

Sleep(количество миллисекунд)

При больших зедержках (больше секунды) задержка будет приводить к тому что приложение будет выглядеть зависшим, можно использовать следующую функцию:

CODE

Procedure Delay(Secunds:integer);
var i:integer;
begin
for i:=0 to Secunds*10 do
begin
sleep(100);
application.processmessages;
end;
end;

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0136 ] [ 16 queries used ] [ Generated: 27.04.24, 20:54 GMT ]