Delphi World - Приостановить работу программы
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Приостановить работу программы

- После того как на МИГ-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;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования