Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сделать паузу. [D5]

Mis © (2002-01-02 13:41:00)
Подскажите please, спомощью чего можно организовать паузу на заданное время.

Smartov (2002-01-03 15:21:00) [1]
Люди, чего вы столько гемора советуете
Если приложение не на АПИхах а ВЦЛ то не
гемморойся а поставь на форму таймер со страницы
System, которому выставь отрезок времени на
который надо паузу, и выставь Enabled=False
В нужныій момент Enabled присваивай True. Внуть
события по таймеру запихни код который, где опять
сделай Enabled=False

Ujin_m (2002-01-03 12:42:00) [2]
Naschet sleep Ia ne uveren chto on deistvitelno gramotno tormozit potok. Timer ne obiazatelen mojno prosto:
try WaitFor (Self.TerminateEvent.Handle, 5000, True); except on E:Exception do ;//Ignore end;

Knight (2002-01-03 12:41:00) [3]
skaminski контузило :))

Bakca (2002-01-03 12:34:00) [4]
Я в основном использую sleep. Насколько я понимаю, он
замораживет поток на заданное время (в ms). Что и требуется.

Ujin_m (2002-01-03 12:19:00) [5]
Vse horosho no pri etom CPU rabotaet pod 100%. Luchshe povesit timer na formu i ispolzovat WaitForObject dlia prodoljenia rabotu.

gek (2002-01-03 09:33:00) [6]
GetTickCount - количество тиков таймера с начала загрузки системы, а не начала суток

MrBeer (2002-01-03 09:32:00) [7]
GetTickCount millisekundi ot restarta windows.

Best regards.

Anatoly Podgoretsky (2002-01-03 09:29:00) [8]
Приведите доказательство.

cdaDmitriy (2002-01-03 09:18:00) [9]
>> skaminski~~~~
хочет наступать на грабли если приводишь кодто ПОДУМАЙ
что будет при изменении даты
GetTickCount -- тики с начала суток !!!!!

MrBeer (2002-01-03 09:00:00) [10]
Esli ya oshibajusj - izpravte menya, no pod *nix (nadejus pod Win32 eto takzhe rabotaet) esli nado na korotkoe vremya (

skaminski~~~~ (2002-01-02 23:49:00) [11]

procedure Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

nil (2002-01-02 14:50:00) [12]
GetTickCount

sleep (2002-01-02 13:52:00) [13]
sleep(время)

Наверх

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