能否动态声明窗体类

Question

请问。
能否动态声明窗体类。
点击按钮前不确定要打开哪个窗体。
窗体的类名由程序中的变量决定。
谢谢！

Answer 1

var
  vForm: TCustomForm;
begin
  vForm := T你的窗体类.Create(nil);
  try
....
  finally
    vForm.free;
  end;
end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  a: TPersistentClass;
begin
  a := FindClass('TClassa');
  TClass(a).Create;
end;

Answer 3

就是怎么声明创建啊。
cn : string ;  这个字符串决定该使用哪个窗类，
程序运行的时候。
cn:=TPOForm ;或
cn:=TPlanForm;
该怎么去创建这个窗体呢。

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
var
  AForm: TPersistentClass;
begin
  cn : string ;  
  cn:=TPOForm ;或 
   cn:=TPlanForm;   AForm:= FindClass(cn);
  TClass(AForm).Create;
  try
    AForm.ShowModel;
  finally
    vForm.free;
  end;end;

Answer 5

可以使用GetClass('classname')根据字符串得到类