Главная страница
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.065 c
1-1144320476
Muhan_
2006-04-06 14:47
2006.05.14
Почему под проксей не идет эта функция?? ((


2-1146146167
dera
2006-04-27 17:56
2006.05.14
Как проверить поле типа Дата/Время (Access)?


2-1145893826
alkin
2006-04-24 19:50
2006.05.14
Используя ADO, подключается Access-база


15-1145038495
tesseract
2006-04-14 22:14
2006.05.14
ReactOS News - ReactOS is dead, Welcome to ReactOS !:


3-1143097634
dolmat
2006-03-23 10:07
2006.05.14
в чем причина не обновления поля