Скачать: CL | DM;

MDI   Найти похожие ветки 

← →
Larisa   (2006-04-09 13:33) [0]

Уважаемые мастера.
Добрый день.
Решите пожалуйста проблему.
Имеется MDI приложение.
При закрытии MDIchild должно выдаваться сообщение о сохранении.
Вроде бы все нормально, но окна при закрытии программы не удаляются,
то есть пользователь видит их, а они должны исчезать.
В чем проблема?

//закрытие MDIchild
procedure TDocs.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
begin
 CanClose:=false;
 stitle:="Сохранить документ "+Caption+" ?";
 case Application.MessageBox(pchar(stitle),"Сообщение",mb_YesNoCancel+mb_iconExclamation) of
   ID_Yes:
   begin
    //идет сохрание
    //не исчезают окна, когда нажимает "Да"
   end;
   ID_No:
   begin
   Release; //не исчезают окна, когда нажимает "Нет"
   end;
   ID_Cancel:SysUtils.Abort;
 end;
end;
CanClose:=true;
end;

procedure TDocs.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TDocs.FormDestroy(Sender: TObject);
begin
next;
end;

//закрытие всей программы
procedure TMain_f.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 case Application.MessageBox("Вы уверены, что хотите выйти?","Сообщение",mb_YesNo+mb_iconQuestion) of
   ID_No:Abort;
   ID_Yes:;
 end;
end;

Помошите, чтобы окна исчезали.
Спасибо.

---

← →
Рамиль ©   (2006-04-09 18:00) [1]

А какие окна не уничтожаются? Вроде все нормально. Только Abort зачем, достаточно exit.
И зачем
procedure TDocs.FormDestroy(Sender: TObject);
begin
next;
end;
?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c