2 elementarni vaprosa

3 отговора 178 прегледа
#1

2 elementarni vaprosa

Здравейте,
бихте ли ми казали как в Delphi да направя delay (закъснение), също как да взема системното време. Не що като gettime i getdate в pascal, при използване на dos.tpu.

Благодаря !

Отговор
в отговор на lvo #2

Re: 2 elementarni vaprosa

TTimer!

Отговор
в отговор на lvo #3

Re: 2 elementarni vaprosa

1. Sleep(
DWORD dwMilliseconds // sleep time in milliseconds
);

2. Погледни Now функцията какво ти връща, също така ти препоръчвам да потърсиш в help-а Date/time routines - ще намериш четиво поне за седмица ;-)))))

---
Е т'ва е живот!
Отговор
в отговор на lvo #4

Re: 2 elementarni vaprosa

Да взема да обобщя:
1. Ако става въпрос за кратко закъснение, през времето на което можеш да се пражалиш, че не се обработват съобщения от твоето приложение - ползвай Sleep.
2. Ако искаш да е простичко, но все пак да се обработват съобщенията, може да се ползва цикъл:
GetTickCount0:=GetTickCount+3000;
while GetTickCount0>GetTickCount do
Application.ProcessMessages;
3. И с tTimer: когато ти потрябва закъснение си инициализираш и разрешаваш таймера, а когато изтече времето - сработва OnTimer случката.

Отговор