Delphi RTTI 动态创建Form

无需引用单元，直接创建对应Form

  

procedure MyShowForm(FormName: string);
  var
    ctxRtti: TRttiContext;
    typeRtti: TRttiType;
    methRtti: TRttiMethod;
    LClass: TRttiInstanceType;
    aForm: TCustomForm;
  begin
    ctxRtti  := TRttiContext.Create;
    try
      for typeRtti in ctxRtti.GetTypes() do
      begin
        if SameText(typeRtti.Name, FormName) then
        begin
          LClass := typeRtti.AsInstance;
          aForm := LClass.MetaclassType.Create as TCustomForm;
          aForm.Create(Application);
          aForm.Show;
          aForm.BringToFront;
        end;
      end;
    finally
      ctxRtti.Free;
    end;
  end;

  MyShowForm('TForm2');