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.为什么???

解决方案 »

  1.   

    TFORM1是程序运行时创建的,是不是这里有问题呀?
      

  2.   

    回复人: yang946() ( ) 信誉:100  2003-02-26 16:17:00  得分:0 
     
     
      TFORM1是程序运行时创建的,是不是这里有问题呀?
      
     
    自己的类,也发现不了.
      

  3.   


    var
      form: TComponent;
    begin
      RegisterClass([TForm1]);
      form := TComponentClass(FindClass('TForm1')).Create(nil);
    end;
      

  4.   

    还真可以,只要将RegisterClass([Tform1])去掉[]即可