MDI [D6]
Larisa © (2006-04-09 13:33:00)
Уважаемые мастера.
Добрый день.
Решите пожалуйста проблему.
Имеется 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:00) [1]
А какие окна не уничтожаются? Вроде все нормально. Только
Abort зачем, достаточно exit.
И зачем
procedure TDocs.FormDestroy(Sender: TObject);
begin
next;
end;
?
Наверх 
ЧАТ |
Орешник |
|
