| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Корректный выход из программы [D7, XP]

RomanH ©   (2006-05-04 16:50:00) 

Не могу понять в чем моя ошибка. На событие 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;
Но что бы я ни нажал (Да или Нет) все равно происходит выход из программы.Подскажите мастера что я делаю не так.

---

RomanH   (2006-05-04 17:00:00) [1]

> Рамиль ©  

Спасибо.

> Сергей М. ©  

Спасибо за ссылочку где реализован второй вариант.

---

Anatoly Podgoretsky   (2006-05-04 16:57:00) [2]

Application.MessageBox  не возвращает таких значений. Смотри справка.

---

Сергей М.   (2006-05-04 16:53:00) [3]

см. OnCloseQuery

---

Рамиль   (2006-05-04 16:52:00) [4]

   if (Application.MessageBox(Вы действительно хотите выйти из программы?',
                  'Выход',MB_ICONQUESTION+MB_YESNO)=mrNO) then
   begin
          Action := caNone;
         exit;
   end

---

Наверх