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;
?

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