Уроки программирования
на Delphi
Иногда требуется в программе сделать задержку (паузу). Для этого в Delphi  имеется  
функция Sleep ( );
Пример:
sleep(1000); //пауза в 1 сек.
Однако во время такой паузы "замораживается" форма и нельзя получить доступ к  
элементам управления (кнопкам и т.д.), что не очень удобно, особенно если требуется  
пауза на длительное время.
Выход из этой ситуации следующий:

procedure Delay (dwMilliseconds: Longint);
var
  iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Sleep(1); // Значительно уменьшает загрузку процессора
    Application.ProcessMessages;
   until (iStop - iStart) >= dwMilliseconds;
end;

Пример:
delay(1000); //пауза в 1 сек.


ГлавнаяAutoBot_HWMTrade_HWM+ПокупкаГарантииFAQКонтакты
Уроки Delphi

Пауза в Delphi - аналог delay в Turbo Pascal
Перейти к списку уроков
Яндекс.Метрика