Обработка собития формы !!!

← →
Новичок :) (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;
И все.

> Юрий Зотов

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

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

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

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