Скачать: CL | DM;

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

← →
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;

---

← →
Till ©   (2003-03-30 16:53) [5]

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

---

← →
Palladin ©   (2003-03-30 17:00) [6]

> Intell © (30.03.03 14:06)

см Song © (30.03.03 13:55)

ты написал тоже самое...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c