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

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

← →
TBeginner ©   (2006-01-04 14:53) [0]

Такая ситуация: в общем есть одно гланое окно Form1, при закрытии на событие OnCloseQuery у меня открывается второе окно Form2, на нём есть кнопка "Отмена", на неё назначена просто Close, при нажатии на которую программа закрывается, как сделать что бы программа не выходила, а только закрывалось эта форма?

---

← →
begin...end ©   (2006-01-04 14:59) [1]

В обработчике OnCloseQuery есть var-параметр CanClose.

---

← →
Чародей ©   (2006-01-04 16:18) [2]

Если это простой запрос на выход то можно так
if MessageDlg("Exit",mtInformation,[mbOK, mbCancel],0)=ID_CANCEL then
 CanClose:=false;

---

← →
Eraser ©   (2006-01-04 16:23) [3]

> TBeginner ©   (04.01.06 14:53)

В OnClose впиши
Action := caHide;

---

← →
iamdanil ©   (2006-01-04 17:26) [4]

if MessageDlg("Exit?",mtwarning,[mbyes, mbno],0)=mrno then
 CanClose:=false;

---

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

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



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