Сообщение, которое нельзя закрыть в течении 30 секунд

[_-Re@l-_]

В одном моём приложении понадобилось сделать следующее. Если пользователь жмёт на кнопку "Пауза", то отобразить сообщение "Пауза..." и не закрывать его до тех пор, пока не пройдёт 30 секунд. Как?
P.S. Ясно, что таймер нужно пользовать....

[_SERGEYX_]

Ну, с использование таймера просто. Нужно создать формочку. Открыть ее модально и запустить таймер. В ее свойстве CloseQuery написать
CanClose:= пока таймер не отстучал 30 сек;
Как-то так...

[Sibedir]

Открыть ее модально

А так же при её открытии

frmPause.Tag := GetTickCount

а в обработчике

procedure TfrmPause.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (GetTickCount - Tag) > 30000;
end;

[asmodey1]

Зачем форма ?

procedure TForm1.ButtonPauseClick(Sender: TObject);
begin
PanelPause.Visible:=True;
TimerPause.Enabled:=PanelPause.Visible;
end;

procedure TForm1.TimerPauseTimer(Sender: TObject);
begin
PanelPause.Visible:=False;
TimerPause.Enabled:=PanelPause.Visible;
end;

З.Ы. Естественно, PanelPause.Caption должен быть "Пауза..."...

[_-Re@l-_]

Ясно, всем спасибо...