пауза

← →
redlord (2004-09-10 18:51) [0]

привет всем
как зделать паузу в выполнении проги и можноли ее потом отменить до истечения установленного времени

← →
Суслик © (2004-09-10 18:55) [1]

для начала надо определиться со следующими аспектами:
1) что есть прога? Т.е. в чем должна выражаться пауза? В том, что интерфейс перестал реагировать на пользователя?
2) Кто выполняет отмену? Другой поток? Пользователь? Другой процесс?

Определитесь с задачей.
Тогда можно дать конкретный ответ.

← →
Луарвик (2004-09-10 18:58) [2]

sleep(1000) секндная пауза в работе процедуры...

← →
Суслик © (2004-09-10 19:02) [3]

> sleep(1000) секндная пауза в работе процедуры...

и вы знаете как ее прервать?

← →
МЯУ (2004-09-10 22:13) [4]

есть какой-то SleepEx, ему можно передавать параметр bAlertable: LongBool. Наверно этот слип можно прервать откуда-нить. Но в хелпе про него ничё не написано (у миня по крайней мере)

← →
Vit@ly © (2004-09-10 22:21) [5]

Попробуй создать бесконечный цикл типа
Repeat
Application.ProcessMessa..
// а здесь обработка нажатия чего-либо
// или в другом месте
Until True;

Разбивай паузу на микропаузы.

procedure TForm1.btnSetpauseClick(Sender: TObject); begin // код паузы timer1.Enabled:=true; caption:="paused"; while not cancel do begin sleep(100); application.ProcessMessages; // это для реагирования на сообщения (чтоб окошко возилось и кнопки нажимались) end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin // эта процедурка вызывается таймером и кнопкой отмены паузы Timer1.Enabled:=false; cancel:=true; caption:="unpaused"; end;

хотя вполне может быть я перемудрил, переменная Cancel и не нужна вовсе (можно заменить на "not timer1.enabled")... но это для наглядности.

пауза Найти похожие ветки