Ничего не пойму в какой части кода я ошибся???

← →
Till © (2003-03-30 13:16) [0]

Пытался сделать, вот чтобы при закрытии приложения пользователю выдавался запрос, "Вы действительно хотите выйти из программы?", и кнопка Иес, и НЕт :-)
ВОт запрос сделал вроде, но если даже давишь на Нет он все равно закрывает программу!!!
Помогите скажите где я ошибся???
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var CloseDlg : Boolean; begin CloseDlg := MessageDlg("Вы действительно хотите выйти из программы?" ,mtConfirmation,[mbYes,mbNo],0)=mrYes; end;

← →
sniknik © (2003-03-30 13:20) [1]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if MessageDlg("Вы действительно хотите выйти из программы?" ,mtConfirmation,[mbYes,mbNo],0)<>mrYes then Action:=caNone; end;

← →
Song © (2003-03-30 13:55) [2]

Проще в onCloseQuery.
CanClose:=MessageDlg(...,[mbYes,mbNo],0)=mrYes;

← →
Intell © (2003-03-30 14:05) [3]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
begin
if MessageDlg("Вы действительно хотите выйти из программы?", mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true {Разрешаем завершение работы.}
else CanClose := false; {Не разрешаем завершение работы.}
end;

← →
Intell © (2003-03-30 14:06) [4]

Извини, опечатка, вот код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg("Вы действительно хотите выйти из программы?", mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true {Разрешаем завершение работы.}
else CanClose := false; {Не разрешаем завершение работы.}
end;

Спасибо Вам за помощь!!!!!

Ничего не пойму в какой части кода я ошибся??? Найти похожие ветки