Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.13;
Скачать: CL | DM;

Вниз

Не могу закрыть MDIChild окно   Найти похожие ветки 

 
pasha_golub ©   (2007-04-19 12:31) [0]

Я как-то туплю, но не могу понять как.

Есть MDI приложение. Дочерняя форма имеет FormStyle = fsMDIChild

Никаких обработчиков на закрытие не висит. Жму крестик, а она, вместо того чтобы закрыть себя, сворачивается. Смотрю код VCL:


procedure TCustomForm.Close;
var
 CloseAction: TCloseAction;
begin
 if fsModal in FFormState then
   ModalResult := mrCancel
 else
   if CloseQuery then
   begin
     if FormStyle = fsMDIChild then
       if biMinimize in BorderIcons then
         CloseAction := caMinimize else
         CloseAction := caNone
     else
       CloseAction := caHide;
     DoClose(CloseAction);
     if CloseAction <> caNone then
       if Application.MainForm = Self then Application.Terminate
       else if CloseAction = caHide then Hide
       else if CloseAction = caMinimize then WindowState := wsMinimized
       else Release;
   end;
end;


Это что так задумано? А как мне осуществить сие?


 
pasha_golub ©   (2007-04-19 12:49) [1]

Я нашел. Всем спасибо. Решение должно выглядеть так:

procedure TfrChild.FormClose
     (Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;



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

Текущий архив: 2007.05.13;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.058 c
2-1176999190
inoc
2007-04-19 20:13
2007.05.13
Ошибка при создании объекта


15-1176304508
@!!ex
2007-04-11 19:15
2007.05.13
Нужно мнение по редактору графов.


15-1176195272
ocean
2007-04-10 12:54
2007.05.13
Visual C++ Express


2-1177078983
roman_ln
2007-04-20 18:23
2007.05.13
TDBNavigator как обработать событие кнопки


15-1176115633
EvgeshaH
2007-04-09 14:47
2007.05.13
Help