一个关于子窗体的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowOnlyFrm('Form2');
end;procedure TForm1.ShowOnlyFrm(FrmName: String);//实际上这个 FrmName 根本没用上，希望高手们指点一下。要如何根据这个窗体名来得到它的 类名？
var
  i:Integer;
  vfrm:TForm;
begin
    if pnl1.ControlCount >0 then begin
        for i:=0 to pnl1.ControlCount -1 do
        pnl1.Controls[i].Free;
    end;
    vfrm := TForm.Create(nil);
    vfrm.Parent := pnl1;
    vfrm.WindowState := wsMaximized;
    vfrm.Show;
end;

Answer 1

楼主的意思应该是由字符串'TForm1'转成类TForm1。关注。

Answer 2

function CreateFormByClassName(const ClassName: string): TForm;
var
  AClass: TPersistentClass;
begin
  AClass := GetClass(ClassName);
  if AClass=nil then exit;
    Result := TComponentClass(AClass).Create(Application) as TForm;
end;