Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
Вниз
Как сделать диалог закрытия программы? Найти похожие ветки
← →
smu (2004-02-13 08:43) [0]Здравствуйте! Первое что пришло на ум:
Procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox ("Вы уверены, что хотите выйти?",
"Внимание!", MB_ICONQUESTION+MB_YESNO) = IDNO then Exit;
end;
Почему-то не работает. Как сделать иначе?
← →
ЮЮ (2004-02-13 08:53) [1]... then Close;
← →
WondeRu (2004-02-13 08:54) [2]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose := Application.MessageBox ("Вы уверены, что хотите выйти?", "Внимание!", MB_ICONQUESTION+MB_YESNO) = IDNO ;
end;
← →
ККВ (2004-02-13 08:54) [3]FormCloseQuery
← →
smu (2004-02-13 08:57) [4]Спасиб
← →
smu (2004-02-13 09:00) [5]canclose := Application.MessageBox ("Вы уверены, что хотите выйти?", "Внимание!", MB_ICONQUESTION+MB_YESNO) = IDYES ;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.032 c
