Скачать: CL | DM;

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 из интернет.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c