Как сделать диалог закрытия программы?

← →
smu © (2004-02-13 08:43) [0]

Здравствуйте! Первое что пришло на ум:
Procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox ("Вы уверены, что хотите выйти?",
"Внимание!", MB_ICONQUESTION+MB_YESNO) = IDNO then Exit;
end;
Почему-то не работает. Как сделать иначе?

← →
ЮЮ © (2004-02-13 08:53) [1]

... then Close;

← →
WondeRu © (2004-02-13 08:54) [2]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose := Application.MessageBox ("Вы уверены, что хотите выйти?", "Внимание!", MB_ICONQUESTION+MB_YESNO) = IDNO ;

end;

← →
ККВ © (2004-02-13 08:54) [3]

FormCloseQuery

Спасиб

canclose := Application.MessageBox ("Вы уверены, что хотите выйти?", "Внимание!", MB_ICONQUESTION+MB_YESNO) = IDYES ;

Как сделать диалог закрытия программы? Найти похожие ветки