Текущее местоположение: Delphi Garden → Статьи навыков → Опыт программирования → Delphi Doply
Дельфи Время задержки
Дата: 31 августа 2004 г. Автор:
Задержка процедуры (MSECS: целое число);
вар
FirstTickCount: Longint;
Начинать
FirstTickCount: = getTickCount;
повторить
Application.ProcessMessages;
до (getTickCount-firsttickCount)> = longint (msecs));
конец;
(Источник: www.delphhibbs.com)