Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Обработка собития формы !!! [D5, D7, Win95/98, NT4, WinXP]

Новичок :) © (2005-06-09 01:05:00)
Здравствуйте уважаемые !!! Будьте так добры подсказать мне функцию !!! Предотвращения процесса события !!! :)

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

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

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 02:00:00) [1]
> Юрий Зотов

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

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

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

Юрий Зотов (2005-06-09 01:44:00) [2]
> Defunct © (09.06.05 01:07) [1]

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

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

alex-drob (2005-06-09 01:08:00) [3]
CanClose:=false

Defunct (2005-06-09 01:07:00) [4]
if ExitDialog = IDYES then
CanClose := True
else
CanClose := False

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »