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

MessageDlg   Найти похожие ветки 

← →
glGLU ©   (2005-01-17 13:33) [0]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 Rez: TModalResult;
begin
 Rez:= MessageDlg("Закрыть программу?", mtWarning, [mbYes,mbNo],0);
 if Rez= mrYes then exit;
 if Rez= mrNo then ???;

---

← →
glGLU ©   (2005-01-17 13:34) [1]

Как сделать чтобы после того как нажали No программа не закрывалась?

---

← →
Fay ©   (2005-01-17 13:37) [2]

OnCloseQuery

---

← →
Erik1 ©   (2005-01-17 13:38) [3]

Надо вызывать диалог в другом событии OnCloseQuery. type TCloseQueryEvent = procedure(Sender: TObject; var CanClose: Boolean) of object;
property OnCloseQuery: TCloseQueryEvent;
Думаю, что надо присвоить в CanClose понятно.

---

← →
Neznaika ©   (2005-01-17 13:56) [4]

А я просто делал Application.Run и все продолжало работать......

---

← →
Fay ©   (2005-01-17 14:20) [5]

2 Neznaika ©   (17.01.05 13:56) [4]
Очень странное решение. Да и не решение это вовсе 8)

---

← →
Neznaika ©   (2005-01-17 14:23) [6]

Согласен! Но програмка была простенькая и писалась для себя.
А этот код позволял ей работать дальше, и не пришлось заморачиваться.

---

← →
ALS ©   (2005-01-17 14:27) [7]

Если очень хочется использовать именно OnClose, можно
 if Rez= mrNo then Action :=caNone

---

← →
glGLU ©   (2005-01-17 15:00) [8]

ALS ©   (17.01.05 14:27) [7]
спасибо
с

if Rez= mrNo then Action :=caNone

все работает

---

← →
remb   (2005-01-17 21:12) [9]

if MessageDlg("Закрыть программу?", mtWarning, [mbYes,mbNo],0) = mrNo then Action:= caNone;

---

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

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



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