Главная страница
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.052 c
6-1162213016
arefart
2006-10-30 15:56
2007.05.13
Перехват пакетов


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


11-1158934714
Vilko
2006-09-22 18:18
2007.05.13
Окно по форме рисунка?


2-1177260570
Exile
2007-04-22 20:49
2007.05.13
Help с WinAPI


15-1176037360
Nic (ro)
2007-04-08 17:02
2007.05.13
Siemens A50