Скачать: CL | DM;

Обработка собития формы !!!   Найти похожие ветки 

← →
Новичок :)   (2005-06-09 01:05) [0]

Здравствуйте уважаемые !!!  Будьте так  добры подсказать мне функцию !!! Предотвращения процесса события !!! :)

При быстром закрытии формы у меня выдаеться диалог с запросом действия !!! Мне нужно что бы при проверке результат нажатой кнопки если она не ДА  то функция события закрытия была прервана !!

Вот кусок кода что бы было попонятней мое изложения слов:

procedure Tmainform1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var ExitDialogResult: word;
begin
ExitDialogResult:=MessageBox(Handle,PChar("Вы действительно хотите выйти ?"),
PChar("Подтвердите действие..."),MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2);
if ExitDialogResult=IDYES then
  begin
  application.terminate;
  end;
//НЕОБХОДИМАЯ ФУНКЦИЯ ЕСЛИ ПРЕДШЕСТВУЮЩИЕ СОБЫТИЕ НЕВЫПОЛНИЛОСЬ !!!

end;

Или подскажите другой вариант ! Заранее благодарю !

---

← →
Defunct ©   (2005-06-09 01:07) [1]

if ExitDialog = IDYES then
  CanClose := True
else
  CanClose := False

---

← →
alex-drob   (2005-06-09 01:08) [2]

CanClose:=false

---

← →
Юрий Зотов ©   (2005-06-09 01:44) [3]

> Defunct ©   (09.06.05 01:07) [1]

Классика жанра! Уж от кого-кого, а от Вас никак не ожидал.

CanClose := MessageBox(...) = IDYES;
И все.

---

← →
Defunct ©   (2005-06-09 02:00) [4]

> Юрий Зотов

Благодарю за то, что Вы такого хорошего мнения обо мне. Спасибо за поправку.

опять же сказывается поход на "пиво".
Меня сбила с толку надпись:
//НЕОБХОДИМАЯ ФУНКЦИЯ ЕСЛИ ПРЕДШЕСТВУЮЩИЕ СОБЫТИЕ НЕВЫПОЛНИЛОСЬ !!!

из-за нее и воткнул else.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c