Текущий архив: 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.104 c