Подтверждения при выходе из программы

[Ayubkhon]

Здравствуйте! В программе есть меню "Выход" при нажатии на него запрашивает пользвателья на подтверждения выхода, вот код:

if Application.MessageBox('Вы дейтвительно завершить работу?', Выход из программы',MB_YESNO+MB_ICONQUESTION) = IDYES then close;

Но если пользователь закрывает не через меню "Выход" а через сочетания клавиш Alt+F4 то без подтверждения закрывается программа. Как сделать так чтобы через Alt+F4 также запрашивала подтверждения выхода?

[apromix]

CanClose рулит!

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  ...
end;

[Ayubkhon]

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

CanClose рулит!

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  ...
end;

Рулит. Спасибо за подсказку!

[ArhangelDJN]

Здравствуйте! Уважаемые знатоки нужна Ваша помощь.

Использую такой код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes
end;

Так вот он выдает окно с вопросом, но если нажмать кнопку "нет" - все равно приложение закрывается как будто я нажмал "Да".
В чем дело? Может я чет не то делаю?

[TwiX]

У меня не закрылось. Скобки можешь попробовать поставить

[ArhangelDJN]

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

У меня не закрылось. Скобки можешь попробовать поставить

Если нажмать "Да" у меня закрывается прога. Но а если нажмать "Нет" она тоже закрывается чет.

Прошу прощения, но я недопонял - где именно скобки поставить???

[TwiX]

CanClose:=(MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes);

Не получится - дебажь

[ArhangelDJN]

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

CanClose:=(MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes);

Не получится - дебажь

НЕ сработало. Жалко блин(((

[Аватар]

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

НЕ сработало. Жалко блин(((

У вас какой-то особый дельфи. Выпендривается зараза при выходе из проги

[ArhangelDJN]

Сообщение от Аватар

У вас какой-то особый дельфи. Выпендривается зараза при выходе из проги

Ага

Вообще Delphi7. При нажатии на "Нет" - не выдает ни ошибок, ничего. Просто завершает приложение, а должен наоборот отменять закрытие и продолжать работу приложения))))