Текущий архив: 2004.07.18;
Скачать: 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 вся ветка
Текущий архив: 2004.07.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
