窗体创建问题?大家进来帮帮忙!

Question

function LoadPkg(FromName:string;classname:string):TNotifyEvent;
var
  PluginClass:TPlugInClass;
  AplgComp:TComponent;
begin
    PluginClass := TPlugInClass(GetClass(classname));
    if assigned(PluginClass) then
    begin
      AplgComp := PluginClass.Create(self);
      TForm(AplgComp).ShowModal;
    end;
end;请问大家,给出一个窗体名称和这个窗体所属的类名!怎样动态地创建窗体!
就好上面那个函数一样!

Answer 1

Application.CreateForm(TFormMain, FormMain);

Answer 2

var
  Frs: TPersistentClass;
begin
  Frs := GetClass('这里该填什么啊!');
end