Закрытие формы - Общие вопросы Delphi

annaangel · 09.10.2009, 12:55

Доброго всем времени суток!

В общем, ситуация: на форме есть кнопка Закрыть, на которую прописан такой вот код

Код:

      if (Application.MessageBox('Выйти из программы?',
      'Внимание!',
      MB_OKCANCEL + MB_ICONQUESTION) = IDOK) then
      Application.Terminate;

А как сделать, чтобы при закрытии формы на красный крестик выдавалось такое же предупреждение?

Вавел из ГМТУ · 09.10.2009, 13:07

Есть специальные события, которые срабатывают при попытки закрыть форму...

Код:

CloseQuery

If MessageDlg('Ты не хочешь работать?', Mtconfirmation, [mbOk,mbCancel], 0) = mrCancel Then CanClose := false;

annaangel · 09.10.2009, 13:26

Работает! Огромное спасибочки

09.10.2009, 12:55	#1
annaangel Пользователь Регистрация: 15.09.2009 Сообщений: 10	Закрытие формы Доброго всем времени суток! В общем, ситуация: на форме есть кнопка Закрыть, на которую прописан такой вот код Код: `if (Application.MessageBox('Выйти из программы?', 'Внимание!', MB_OKCANCEL + MB_ICONQUESTION) = IDOK) then Application.Terminate;` А как сделать, чтобы при закрытии формы на красный крестик выдавалось такое же предупреждение?

09.10.2009, 13:07	#2
Вавел из ГМТУ Форумчанин Регистрация: 19.06.2009 Сообщений: 896	Есть специальные события, которые срабатывают при попытки закрыть форму... Код: `CloseQuery If MessageDlg('Ты не хочешь работать?', Mtconfirmation, [mbOk,mbCancel], 0) = mrCancel Then CanClose := false;` Последний раз редактировалось Вавел из ГМТУ; 09.10.2009 в 13:09.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Закрытие формы....	sergiksergik	Microsoft Office Excel	18	22.09.2009 20:23
Закрытие формы	RIO	Общие вопросы Delphi	2	27.08.2009 17:10
Закрытие формы (Delphi)	VadEr	Помощь студентам	4	30.05.2009 12:59
Закрытие формы	girz	БД в Delphi	7	13.05.2009 22:54

09.10.2009, 13:26	#3
annaangel Пользователь Регистрация: 15.09.2009 Сообщений: 10	Работает! Огромное спасибочки