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

Подтверждение закрытия приложения   Найти похожие ветки 

← →
Arkady ©   (2002-10-28 12:46) [0]

Как перед закрытием формы вывести окно подтверждения типа:
if MessageDlg("Выйти из программы?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes then Form1.close;

---

← →
Smithson ©   (2002-10-28 12:53) [1]

Повесь обработчик OnClose

---

← →
Alx2 ©   (2002-10-28 12:55) [2]

OnCloseQuery?

---

← →
BIN ©   (2002-10-28 13:10) [3]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg("Выйти из программы?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes then Action :=caFree else
Action :=caNone;
end;

---

← →
Arkady ©   (2002-10-28 13:27) [4]

Спасибо всем

---

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

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



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