Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Наверх

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