通过字符串来 实例化 创建窗体

 

 

 

/// <summary>
/// 一般窗体都应该输入Application的，当然你想改变拥有者的关系 也是可以的
//  比如你可以自己写一个插件 自己去管理多实例与单实例。这里我们只考虑
/// 单实例的情况。
/// </summary>
procedure TfrmMain.Button1Click(Sender: TObject);
var
  FormClass : TFormClass ;
  Form : TForm ;
begin
   FormClass := TFormClass(FindClass('Tfrm1')) ;
   Application.Createform(FormClass, Form) ;
   Form.ShowModal;

  //下面这样写也是可以的。
//  with TForm(findclass('Tfrm1').Create).Create(Application) do
//  begin
//    ShowModal;
//  end;
end;