Обновлено: 01 декабря, 2018

Делаем задержку без подвешивания системы в 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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439