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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

— После того как на МИГ-29 установили операционную систему Windows 2000, он совершил невероятную фигуру высшего пилотажа.

— И какую же?

— Он ЗАВИС!!!

Используйте 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;

{/codecitation}

Добавить комментарий