关于主表单的设置

Question

form1,form2显示时用模式显示,如:form1 := TForm1.Create(Self);
try
  form1.ShowModal;//模式显示,在form1被关闭之前,主窗体不可用
finally
  form1.free;
end;

Answer 1

try
 form2:=TForm2.create(Application);
 form2.showmodal;
finally
 form2.free;
 form2:=nil;
end;

Answer 2

1.请将你的form1,form2的formstyle设为fsMDIChild吧，因为你的main是fsmdiform！要么用form1.showmodal也可。2.将form1,form2的formstyle设为fsMDIChild，然后将form1,form2的菜单的GroupIndex设为不同的数值如0,1,2,3,4吧……这样菜单可自动合拼，你也可以将form1,form2的菜单设为与main中的菜单GroupIndex相同试试看有什么效果！

Answer 3

补充：
如果用fsMDIChild,请记得这个：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;