delphi子窗体创建关闭后为什么其它子窗体不最大化

以前写过子窗体创建后最大化,打开多个窗体后,关闭某个子窗体后其它子窗体也是最大化,今天改一个程序,其中是创建窗体用下面的形式:

 

If Form1<>Nil Then

Form1:= TForm1.Create(Application);

Form1.show;

 

关闭时用:

 

Form1.Close;

Try

  Release();

Finally

  Form1:=Nil;

End;

 

可是在关闭时其他的子窗体却由最大化变为原来设计的大小,经过反复测试,找到了问题的所在:如果是MDIChild窗体,关闭时用下面的即可解

 

决;另外主窗体在创建时把WindowState设为wsMaximized后,却发现窗体不是最大化的,只要在FormCreate里调用

 

Perform(WM_SIZE,SIZE_MAXIMIZED,0);并把WindowState设为wsNormal即可。

 

Action:=caFree;

Form1:=nil;