DELPHI中MDI子窗口的关闭和打开

DELPHI中MDI子窗口的关闭 和打开

 

    Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会

 

发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中

 

加入如下代码，示例：

 

procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);

begin

   Action := caFree;

end;

  

 

　　Delphi为一个Form的关闭行为指定了四种方式，分别是：

 

caNone 禁止Form被关闭 

caHide Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。 

caFree Form被关闭，并且释放其占用的资源。 

 

caMinimize Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。

 

==================================================

在MDIForm调用MDIChild窗体时要这样用   

引用

   if   not   Assigned(Form2)   then   begin   

               Form2:=TForm2.Create(Self);   

               Form2.Show;   

         end   else   

Form2.BringToFront;   

      

   另外在MDIChild的OnClose,   OnDestroy中要以下代码   Form2为MIDChild窗体的名称   

   procedure   TForm2.FormClose(Sender:   TObject;   var   Action:   TCloseAction);   

   begin   

         Action:=caFree;   

   end;   

      

   procedure   TForm2.FormDestroy(Sender:   TObject);   

   begin   

         Form2:=nil;   

   end;   

  

 

=================================================

如何获得当前打开的子窗口的数量？ 

Application.MainForm.MDIChildCount

 

==================================================

怎么关闭所有打开MDI子窗体? 

 

除了在主窗体写入   

   procedure   TFrmMain.N15Click(Sender:   TObject);   

   var   I:integer;   

   begin   

         if   Application.MessageBox('确定要关闭所有窗口吗？','System',mb_iconinformation

 

mb_yesno)=id_yes   then   

         begin   

         for   I:=MdiChildCount-1   downto   0   do   

         MdiChildren[I].Close;   

         end;   

   end;   

      

   还要在各个子窗口写入   

   procedure   TFrmchildn.FormClose(Sender:   TObject;   var   Action:   TCloseAction);   

   begin   

         action:=cafree;   

       Frmchildn:=nil;        

   end;   

 

procedur TFrmchildn .FormDestroy(Sender:   TObject);   

     begin   

           TFrmchildn:=nil;   

     end;   

 

 

=================================================

根据以上的测试，有效代码：

主窗体：

引用

procedure TForm1.a2Click(Sender: TObject);

begin

if Assigned(Form2) then

 

   begin

Form2.Close;

   end;

 

end;

 

procedure TForm1.a3Click(Sender: TObject);

begin

   if not Assigned(Form2)   then //判断子窗体是否已打开

   begin

   Form2:=TForm2.Create(Self);

   Form2.Show;

   end

   else Form2.BringToFront;

end;

子窗体：

引用

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

 

procedure TForm2.FormDestroy(Sender: TObject);

begin

Form2:=nil;

 

 

 

 

 

delphi  里的mdi 子窗口始终在最底层，父窗口的控件始终在子窗口之上，子窗口上的控件被遮挡，看起来很别扭。

有两种解决办法。一种是把父窗口的formstyle :=fsMdiform; 子窗口 formstyle :=fsMdiChild;在父窗口里放置一个panel1 和父窗口尺寸一样大。在把父窗口的控件都放在这个panel1上。在设置子窗口的的父类是panel1.

这里有个关键代码，a:=TForm2.Create(self);                      windows.SetParent(a.Handle,Panel1.Handle );

经过这种设置后，产生的子窗体就在最上了。关闭子窗体要在 onClose 里设置 action:=caFree; 如果要通知父窗体子窗口已关闭，可以在子窗体里设计一个自定义类。type  TshowEvent = procedure(show: bool) of object;

在窗口类定义里   private    FshowEvent: TshowEvent;

public    property onShowEvent: TshowEvent read FshowEvent write FshowEvent;

在子窗体里 onClose 里   if Assigned(onShowEvent)   then    onShowEvent(true);

在父窗体窗口类里  procedure showMessage(show:bool);

Form1.showpage(show: bool);

begin

if show then  //接到子窗口的关闭通知

end

第二种 是不用设置窗体的 FormStyle 直接设置另一个窗口为子窗口。

Application.CreateForm(Tform3,form3 );
   windows.SetParent(Form3.Handle,Form1.Handle);
  form3.show;

这种有个好处，不用设置panel1,但这窗体是窗口内嵌方式。