Как отменить закрытие программы?

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

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

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