Delay(...) в каком модуле описана

← →
ВАО (2003-07-26 15:46) [0]

подскажите пожалуйста
процедура Delay(...)
для делфи в каком модуле описана, чтоб добавить этот модуль
в
implementation
uses ...;

← →
Reindeer Moss Eater (2003-07-26 15:48) [1]

В каком то модуле третьей стороны.

← →
Юрий Зотов (2003-07-26 15:52) [2]

В VCL нет Delay. Если нужна небольшая пауза, используйте Sleep, если длительная - делайте цикл задержки с GetTickCount и Application.ProcessMessages.

← →
Leran2003 (2003-07-26 15:53) [3]

А Sleep(...) не пробывал???

← →
Reindeer Moss Eater (2003-07-26 16:03) [4]

Лучше попробуй поиск фалов *.pas содержащих Delay

← →
_Developer_ (2003-07-26 16:21) [5]

Procedure Delay(Milliseconds : DWORD);
Var
FirstTick : DWORD;
Begin
FirstTick := GetTickCount;
Repeat
Application.ProcessMessages;
Until GetTickCount - FirstTick >= Milliseconds;
End;
Вот и всё! ;-)

← →
Ihor Osov'yak (2003-07-26 21:50) [6]

2 _Developer_ (26.07.03 16:21)

.. И можно получить очень красивые ловушки..

Типа такой

flDone:boolean;

procedure TSuperForm.WMDoItOneTime; begin if flDone then exit; .. PostMessage(Handle,WM_DoItOneTime,.. Delay(1000); .. flDone := true; .. end;

Пример очень схематичен и утрирован, но идею описывает..

Зы. В более-менее сложной программе, где нужнео отслеживать задержки такие "мины" вдоль и впоперек..

Зы2. Никто не говорит, что так нельзя. Можно, но осторожно, и с пониманием того, как события передаются и обрабатываются.. Ну, и чтобы зеленое понятие было о цыкле выборки сообщений..
Но в общем то такой техники нужно избегать.

← →
хм (2003-07-27 21:34) [7]

А если использовать WaitForSingleObject?

← →
AbrosimovA (2003-07-28 07:47) [8]

MyUtils.pas из интернет.

Delay(...) в каком модуле описана Найти похожие ветки