Закрытие формы по истечение времени.

@1privetpoka1 · Регистрация: 15.03.2014

Author24 — интернет-сервис помощи студентам

Добрый день, нужна помощь в таком: чтобы по истечению 20минут, форма закрывалась, но перед этим выводилось сообщение"Привет" и по нажатию ОК, закрывалась
Помогите в реализации. Спасибо

@TAZAQ · 05.05.2014, 14:30

1privetpoka1, компонент TTimer, вкладка System
Interval=1200000

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('Привет');
Application.Terminate;
end;

@M9sNik · 05.05.2014, 14:35

Сообщение от TAZAQ

1privetpoka1, компонент TTimer, вкладка System
Interval=1200000

Интересно, а можно ли как-то отслеживать активность программы?

@droider · 05.05.2014, 14:43

1privetpoka1,

Delphi

procedure TForm1.tmr1Timer(Sender: TObject);
begin
ShowMessage('Привет!');
Close;
tmr1.Enabled :=False;
end;
 
end.

M9sNik, в смысле? Время работы программы? Можно.
Время работы программы

@1privetpoka1 · 05.05.2014, 15:03 **[ТС]**

Спасибо.
Можно /close

@1privetpoka1 0 / 0 / 0 Регистрация: 15.03.2014 Сообщений: 54
		1
	Закрытие формы по истечение времени. 05.05.2014, 14:22. Показов 2233. Ответов 4 Метки нет (Все метки) Добрый день, нужна помощь в таком: чтобы по истечению 20минут, форма закрывалась, но перед этим выводилось сообщение"Привет" и по нажатию ОК, закрывалась Помогите в реализации. Спасибо 0

@M9sNik 7 / 7 / 2 Регистрация: 19.11.2009 Сообщений: 105
	05.05.2014, 14:35	3
	Сообщение от TAZAQ 1privetpoka1, компонент TTimer, вкладка System Interval=1200000 Интересно, а можно ли как-то отслеживать активность программы? 0

@1privetpoka1 0 / 0 / 0 Регистрация: 15.03.2014 Сообщений: 54
	05.05.2014, 15:03 [ТС]	5
	Спасибо. Можно /close 0

Опции темы