На главную

Приостановить работу программы

Приостановить работу программы

ОГЛАВЛЕНИЕ    HOME  MAIL



Используйте Sleep(Milliseconds). Программа перестает работать на указанное в скобках количество тысячных секунд. Погрешность на моем компьютере, а он не старый, до 10 мсек. При этом способе ничего не происходит, даже перерисовка. Чтобы этого избежать можно использовать другой способ.

procedure TForm1.Button1Click(Sender: TObject);
var
  t: integer;
begin
  t := GetTickCount;
  repeat Application.ProcessMessages
  until GetTickCount - t >= 1000;
  Button1.Caption := Button1.Caption + '1';
end;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz