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

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

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

---

← →
YurikGL ©   (2004-07-03 23:09) [3]

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

---

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

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



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