如何实现MDI多文档窗体的框架，来自一个菜鸟，谢谢大家帮我

Question

我现在学着做一个小的mis系统，C/S结构的，可是我不会做多文档的界面，能否大家教一下我啊，其实我想实现的功能不多，就是一个主窗口，然后里面可以有任意一个子窗口在里面打开，但是每次只能允许一个子窗体打开，并且肯定在主窗体的里面打开！大家教教我吧，或者给我点代码看看也可以，谢谢了，再次谢谢了

Answer 1

新建工程-->设置主Form的属性FormStyle为fsMDIForm就可以创建MDI的框架了->创建子窗体，设置其属性FormStyle为fsMDIChild即可成为MDI的子窗体了－>用显示子窗体的时候用Show，即可如：
Form1为主框架，设置其属性为fsMDIForm，Form1的主菜单项有一个要显示Form2的菜单项
Form2为子窗体，设置其属性fsMDIChild
在Form2的单元中声明一个函数或过程是显示Form2的
如：
var
  Form2: TForm2;
procedure ShowForm2;implementationprocedure ShowForm2;
begin
  if form2 = nil then Form2 := Tform2.Create(Application);
  Form2.Show;
end;
///////////
form1的菜单事件中这样写
begin
  ShowForm2;
end;