高手请进！！！

Question

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  form: TComponent;
begin
  form := TComponentClass(FindClass('TForm1')).Create(nil);
end;出错，提示 Class TForm1 not Found.为什么？？？

Answer 1

form := TComponentClass(FindClass('TForm')).Create(nil);不要Tform1用Tform
同时，想用findclass命令必需要现在程序里运行registerClass()命令把class信息加到流中楼主在程序里加上RegisterClass(Tform)就可以了，在delphi5里是这样的

Answer 2

现在运行时把类注册了才能FINDCLASS

Answer 3

TForm1类没有注册，TForm已注册，所以TComponentClass(FindClass('TForm')).Create(nil);
FindClass用于已注册！！