如何打开最大化打开两MDIChild窗口？

Question

在MDI窗口mainform中，打开了MDIChild窗口form1：
form1:=Tform1.Create(self);
form1.show;
form1最大化了的，若再打开一MDIChild窗口form2：
form2:=Tform2.Create(self);
form2.show;
此时form1就还原为原来大小了，如何保持form1最大化而不被还原呢？

Answer 1

显示Form1：
  if Form1 = nil then
  begin
    Form1 := Form1.Create(Self);
    Form1.WindowState:=wsMaximized;
  end;
  Form1.show;显示Form2：
  //同上......

Answer 2

procedure Tmain.CustomItem16Click(Sender: TObject);
begin
if findmdiwindow=true then  begin
showmessage('请关闭当前窗口');exit;end;
 planmanage:=tplanmanage.create(self);
 factoryname:='一分厂';
 planmanage.Caption:=planmanage.Caption+'-['+factoryname+']';
 planmanage.WindowState:=wsMaximized;
end;

Answer 3

我在窗口属性里已设置了WindowState:=wsMaximized

Answer 4

procedure Tmain.CustomItem16Click(Sender: TObject);
begin
if findmdiwindow=true then  begin
showmessage('请关闭当前窗口');exit;end;
 planmanage:=tplanmanage.create(self);
 factoryname:='一分厂';
 planmanage.Caption:=planmanage.Caption+'-['+factoryname+']';
 planmanage.WindowState:=wsMaximized;
end;

Answer 5

现在是这样：
Form1显示后已最大化，但若再打开form2，再将form2关闭，之后Form1会还原，如何能让Form1不被还原？

Answer 6

可以对话把你那段代码完整发过来看看吧，搞不懂你的出问题的地方。
[email protected]

Answer 7

我明白你的意思，搞不懂你的代码问题在哪里，可以的话把代码发过来看看吧。
[email protected]我也发个给你。email？

Answer 8

我是要显示form2时不要关闭form1。
现form1打开着，我用下面代码测试打开form2：
MessageBox(handle,pchar(inttostr(from1.Width)),'',MB_OK);
form2:=Tform2.Create(self);
MessageBox(handle,pchar(inttostr(from1.Width)),'',MB_OK);
前后两MessageBox提示不一样，即在打开form2之前form1是最大化的，打开form2后form1就还原了，为什么会这样？

Answer 9

我是要显示form2时不要关闭form1。我的代码很简单，现form1打开着，我用下面代码测试打开form2：
MessageBox(handle,pchar(inttostr(from1.Width)),'',MB_OK);
form2:=Tform2.Create(self);
MessageBox(handle,pchar(inttostr(from1.Width)),'',MB_OK);
前后两MessageBox提示不一样（前者808，后者642），即在打开form2之前form1是最大化的，打开form2后form1就还原了，为什么打开form2会影响form1？
（单步跟踪调试没有发现运行其它代码）

Answer 10

XXSingle(水连天)：发个什么消息？再把打开着的form1最大化？