fsMDIForm和fsMDIChild

Question

现在有两个窗体FORM1和FORM2,FORM1的FORMSTYLE设置为fsMDIForm,FORM2的FORMSTYLE设置为fsMDIChild且把FORM2移动到AVAILABLE FORMS中,现在想在FORM1中打开FORM2,然后在FORM1中的菜单中加入如下代码:
procedure TFORM1.N3Click(Sender: TObject);
var
  FORM2:TFORM2;
begin
 if not assigned (FORM2)then
  FORM2:=TFORM2.Create(application);
 FORM2.Show;
end;
但是却不显示!不知道为什么?请制教!多谢了!

Answer 1

procedure TFORM1.N3Click(Sender: TObject);
varbegin
 if not assigned (FORM2)then
  FORM2:=TFORM2.Create(application);
 FORM2.Show;
end;
这样就行.

Answer 2

procedure TFORM1.N3Click(Sender: TObject);begin
 if not assigned (FORM2)then
  FORM2:=TFORM2.Create(application);
 FORM2.Show;
end;
应该这样,,刚才上面多写了个var

Answer 3

project-->option-->把Form2从左边移到右边，试试

Answer 4

Kandy_Zheng(小郑)
我按照你的方法试了！是可以显示了！但是当FORM2

Answer 5

晕死了！打错了！还没有写完就发出去了！
但是当FORM2最大化的时候和FORM1成为一体了！怎么才能让FORM2最大化的时候不能大过FORM1？