Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.14;
Скачать: CL | DM;

Вниз

Временная задержка между событиями   Найти похожие ветки 

 
Интересующийся   (2006-04-24 18:08) [0]

Уважаемые, подскажите тёмному, как задать временную задержку между двумя событиями. Например нажимаешь кнопку, а эффект наступает с "оттяжкой".


 
Юрий Зотов ©   (2006-04-24 18:15) [1]

GetTickCount в цикле с Application.ProcessMessages.
Sleep
TThread.WaitFor
MsgWaitForMultipleObjects с WAIT_TIMEOUT
и еще куча функций, названия которых начинаются с WaitFor...

Простейший (но не лучший) вариант:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Sleep(3000);
 ShowMessage("Это была задержка на 3 секунды")
end;


 
Мефисто   (2006-04-24 18:15) [2]

Sleep

Или цикл с громадным вычислением (ой, лучше такого не делать :) )

или

TTimer.Enable := True
TTimer.OnTimer
....
TTimer.Enable := False


 
Интересующийся   (2006-04-24 19:24) [3]

>> Мефисто
Задержка по большому циклу на машинах разной вычислительной мощности "задерживается" на разное время! Это не есть хорошо.


 
AlexanderMS ©   (2006-04-24 19:41) [4]


> TTimer.Enable := True
> TTimer.OnTimer
> ....
> TTimer.Enable := False


Конечно же, так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled := true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled := false;
 <действия>
end;


 
Мефисто   (2006-04-24 19:42) [5]

Интересующийся   (24.04.06 19:24) [3]

Знаю, потому и просмайлился

>> (ой, лучше такого не делать :) )


 
Palladin ©   (2006-04-24 23:55) [6]


> Интересующийся

ты раз такой Интересующийся, то может снизойдешь и поинтересуешься постом Юрия Зотова?


 
Германн ©   (2006-04-25 03:09) [7]

2 Интересующийся   (24.04.06 18:08)
Если ты всё ещё интересуешься, то лучше опиши свою задачу. Поскольку "оттяжку" уже предложили. А вот насчёт "эффекта" есть сомнения.


 
Anatoly Podgoretsky ©   (2006-04-25 08:58) [8]

Германн ©   (25.04.06 03:09) [7]
Неправда ваша, предложили как сделать задержку, а как оттянуться еще не предлагали.


 
ssk ©   (2006-04-25 09:11) [9]

>>а как оттянуться еще не предлагали

предлагаю портвейном. белым. крымским.



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

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

Наверх




Память: 0.48 MB
Время: 0.045 c
2-1145689613
Khim
2006-04-22 11:06
2006.05.14
Indy, soket error # 100060 Connection time out


3-1142856484
GL00m
2006-03-20 15:08
2006.05.14
Не работает INSERT при работе с БД Access...


3-1142616387
Silver...
2006-03-17 20:26
2006.05.14
Могу ли? Если да то как? Послать определенное сообшение...


2-1145867869
Keks
2006-04-24 12:37
2006.05.14
Всплывающие сообщения


6-1137946445
jjj
2006-01-22 19:14
2006.05.14
TCP/IP без компонентов