Timer

Тема в разделе "Delphi - Компоненты", создана пользователем nattaella, 11 июн 2011.

Статус темы:
Закрыта.
  1. nattaella

    nattaella Гость

    у меня есть две процедуры, перерыв между которыми должен быть 2 секунды:
    procedure 1;
    sleep(2000);
    procedure 2;

    Сначала пробовала функцию sleep(2000); но он не задерживает, а блокирует работу программы. А таймер актуален только при повторении с каким-то интервалом какого-то участка кода. Что мне нужно сделать?
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Один из самых простых способов, :
    Код (Delphi):
    var time:Cardinal;
    begin
    //процедура 1
    time:=gettickcount;
    while gettickcount-time<=2000 do
    application.ProcessMessages;//насколько я знаю : обработка сообщений виндовс, на самом деле это конечно не так, но примерный смысл такой.
    //процедура 2
    end;
     
Загрузка...
Похожие Темы - Timer
  1. Dock1100
    Ответов:
    5
    Просмотров:
    3.772
  2. yerke
    Ответов:
    3
    Просмотров:
    2.187
  3. yerke
    Ответов:
    4
    Просмотров:
    3.438
Статус темы:
Закрыта.

Поделиться этой страницей