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;
|