怎样动态的创建窗口？

Question

我有几个不同类型的窗口，想通过下面的方式创建：
  
var  
   m:TForm1;  
begin  
   m:=TForm1.Create(Self);  
   ...  
end;
 
   ...var
  m:TForm2;
begin
  m:=TForm2.Create(Self);
  ...
end;  ...
 
我想有一个通用的方法，该方法接受传递的窗口类型，动态创建窗口实例，然后返回这个窗口实例。  

Answer 1

procedure TfrmMain.ToolButton1Click(Sender: TObject);
begin
    Application.CreateForm(TfrmCtrMtc, frmCtrMtc);
    frmCtrMtc.ShowModal;
end;

Answer 2

Application.CreateForm(FormClass: TFormClass; var Reference);

Answer 3

function CreateForm(ClassName:ShorString):TObject
begin
 Result:=TClass(ClassName).Create(Self);
end;可以吗，没有试过，胡说的。

Answer 4

Application.CreateForm(TForm1,Form1);
此时的Form1的OWner为Application,这不是我所描述的！