Текущий архив: 2002.09.19;
Скачать: CL | DM;

Вниз

Использование задержки в DELPHI.......   Найти похожие ветки 

← →
Evgen.RU   (2002-09-10 11:34) [0]

Hi Мастера DELPHI!Помогите пожалуйста.
В Турбо Паскале можно мыло включить Uses CRT и тогда
использовать очень удобную команду Delay.Можно ли, а
главное как использовать Delay в DELPHI.Если нельзя, то какие есть альтернативы?
Зарание всем благодарен, надеюсь на вашу помощь :).

---

← →
RV ©   (2002-09-10 11:39) [1]

timer
sleep

---

← →
Ученик ©   (2002-09-10 11:41) [2]

RX

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;

---

← →
dihlos ©   (2002-09-10 11:42) [3]

Из FAQ:


procedure TForm1.Delay(msecs : Longint);
var
FirstTick : longint;
begin
FirstTick:=GetTickCount;
repeat
Application.ProcessMessages; {для того чтобы не "завесить" Windows}
until GetTickCount-FirstTick >= msecs;
end;


---

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

Текущий архив: 2002.09.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c