Делаем задержку без подвешивания системы в Delphi

Передаваемый параметр ms в функцию — миллисекунды. Следующий пример делает задержку в 2 секунды:

procedure Delay(ms : longint); 
var
  TheTime : LongInt; 
begin
  TheTime := GetTickCount + ms; 
  while GetTickCount < TheTime do
    Application.ProcessMessages; 
end; 
  
procedure TForm1.Button1Click(Sender: TObject); 
begin
  ShowMessage('Start Test'); 
  Delay(2000); 
  ShowMessage('End Test'); 
end; 
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий