Delphi通过名字创建类实例

1、注册类 procedure TMainForm.FormCreate(  Sender: TObject); begin  RegisterClass(TFirstForm);  RegisterClass(TSecondForm);  RegisterClass(TThirdForm); end;

2、调用例字 procedure TMainForm.CreateFormButtonClick(  Sender: TObject); var  frmName : string; begin  frmName := 'TFirstForm';  CreateFormFromName(s); end;

3、通过名字创建类实例 function CreateFormFromName(  const FormName : string):TForm; var  frmClass : TFormClass;  frm : TForm; begin  frmClass := TFormClass(FindClass(FormName));  frm := frmClass.Create(Application);   frm.Show; result := frm; end;