Текущий архив: 2006.05.21;
Скачать: CL | DM;
Вниз
Корректный выход из программы Найти похожие ветки
← →
RomanH © (2006-05-04 16:50) [0]Не могу понять в чем моя ошибка. На событие OnClose задаю такое условие:
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
if (Application.MessageBox(Вы действительно хотите выйти из программы?",
"Выход",MB_ICONQUESTION+MB_YESNO)=mrNO) then
begin
exit;
end
else for i:=0 to MDIChildCount-1 do MDIChildren[i].Close;
end;
Но что бы я ни нажал (Да или Нет) все равно происходит выход из программы.Подскажите мастера что я делаю не так.
← →
Рамиль © (2006-05-04 16:52) [1]
if (Application.MessageBox(Вы действительно хотите выйти из программы?",
"Выход",MB_ICONQUESTION+MB_YESNO)=mrNO) then
begin
Action := caNone;
exit;
end
← →
Сергей М. © (2006-05-04 16:53) [2]см. OnCloseQuery
← →
Anatoly Podgoretsky © (2006-05-04 16:57) [3]Application.MessageBox не возвращает таких значений. Смотри справка.
← →
RomanH © (2006-05-04 17:00) [4]
> Рамиль ©
Спасибо.
> Сергей М. ©
Спасибо за ссылочку где реализован второй вариант.
Страницы: 1 вся ветка
Текущий архив: 2006.05.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.08 c
