Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизПодтверждение закрытия приложения Найти похожие ветки
← →
Arkady (2002-10-28 12:46) [0]Как перед закрытием формы вывести окно подтверждения типа:
if MessageDlg("Выйти из программы?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes then Form1.close;
← →
Smithson (2002-10-28 12:53) [1]Повесь обработчик OnClose
← →
Alx2 (2002-10-28 12:55) [2]OnCloseQuery?
← →
BIN (2002-10-28 13:10) [3]procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg("Выйти из программы?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes then Action :=caFree else
Action :=caNone;
end;
← →
Arkady (2002-10-28 13:27) [4]Спасибо всем
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c