一个一直困惑我的问题

Question

如下代码
procedure TForm1.Button1Click(Sender: TObject);
var
Frm_temp:TForm;
begin
  Frm_temp:=TForm2.Create(Self);
  Frm_temp.Show;
end;
我向动态创建窗体但我想问一下实现这样
Frm_temp:=函数('TForm2').Create(Self);
这个函数怎样实现
或者只知道‘TForm2’(string型) 据此 能够创建窗体

Answer 1

先注册窗体类 Tform2
RegisterClass(TForm2)
在
var
  TempFrm:Tform;
begin
  TempFrm := TFormclass(FindClass('TForm2')).Create(application);

Answer 2

调试通过
  RegisterClass(TForm1);
  s1:='Tform1';
  tmpform:=TFormclass(FindClass(s1)).create(application);
  tmpform.Show;