| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Использование задержки в DELPHI....... [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Evgen.RU ©   (2002-09-10 11:34:00) 

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

---

dihlos   (2002-09-10 11:42:00) [1]

Из FAQ:


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


---

Ученик   (2002-09-10 11:41:00) [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;

---

RV   (2002-09-10 11:39:00) [3]

timer
sleep

---

Наверх