При нажатии на крестик в правом верхнем углу выводить окно?

← →
Vasya.ru (2004-07-03 22:56) [0]

Поясню: При нажатие на кнопку закрытия окна не закрыть его, а вывести диалоговое окно с кнопками "Да" "Нет". Как это реализовать?

← →
Семен Сорокин © (2004-07-03 23:00) [1]

OnCloseQuery

← →
YurikGL © (2004-07-03 23:08) [2]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg("Çàêðûòü îêíî",mtConfirmation,[mbYes,mbNo],0)=mrNo then canclose:=false;
end;

"Çàêðûòü îêíî" это - "Закрыть окно?"

При нажатии на крестик в правом верхнем углу выводить окно? Найти похожие ветки