如何动态建立，显示，并且自己释放 子窗口

Question

有个主窗口，为Paret窗口， 有五个子窗口我想做个多文档的程序，象WORD样，但又想能动态建立并释放各位前辈能否举个列子参考下。我的：
  var 
    Frm2:TForm2;
begin
  Frm2:=TFrom2.Create(nil);
  Frm2.ShowModal();
  Frm2.free();
end;

Answer 1

var 
    Frm2:TForm2;
begin
  Frm2:=TFrom2.Create(self);
  Frm2.Show;
  Frm2.free;
end;
这样就可以了呀

Answer 2

把FORM2从OPTIONS里面的FORMS页删除掉,然后再创建
在FORM2的ONCLOSE事件里面加入ACTION:=CAFREE;

Answer 3

谢谢了
设置子窗体    FormStyl;=fsMDIChild; Visible;=True;
从OPTIONS里面的Auto Create Forms 页移动道Available Froms;
设置子窗体ONCLOSE事件里面加入ACTION:=CAFREE;在主窗体引用该单元 并在调用出写
var 
    Frm2:TForm2;
begin
  Frm2:=TFrom2.Create(self);
  Frm2.Show;

Answer 4

var 
    Frm2:TForm2;
begin
try
  Frm2:=TFrom2.Create(self);
  Frm2.Show;
finally
  Frm2.free;
    end;
end;
这样就可以了呀

Answer 5

var 
    Frm2:TForm2;
begin
try
  Frm2:=TFrom2.Create(self);
  Frm2.Show;
finally
  Frm2.free;
  frm2:=nil;
end;
end;

Answer 6

第一种方法(写在调用单元):
application.create(Tform1,form1);
form1.showmoduel;
form1.free;
第二种方法(在form1单元写一个函数):
function gfOpenForm1():integer;
begin
  form1:=Tform1.create(nil);
  form1.showmoduel;
  form1.free;
end;
在调用单元写上:uses form1
在一个事件写上:gfOpenForm1();