Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Как заставить программы подождать несколько секунд?   Найти похожие ветки 

← →
novill   (2005-01-19 13:36) [0]

Нужна альтернатива функции sleep, так как она не позволяет обрабытывать системные сообщени программе.

---

← →
Amoeba ©   (2005-01-19 13:38) [1]

В RxLib есть такая процедура - Delay

---

← →
MetalFan ©   (2005-01-19 13:40) [2]

а вот как она выглядит:
procedure Delay(MSecs: Longint);
var
 FirstTickCount, Now: Longint;
begin
 FirstTickCount := GetTickCount;
 repeat
   Application.ProcessMessages;
   { allowing access to other controls, etc. }
   Now := GetTickCount;
 until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

---

← →
novill   (2005-01-19 13:52) [3]

спасибо. попробавал. сработало.
просто я без rxlib работаю.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.029 c