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.为什么???
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.为什么???
TFORM1是程序运行时创建的,是不是这里有问题呀?
自己的类,也发现不了.
var
form: TComponent;
begin
RegisterClass([TForm1]);
form := TComponentClass(FindClass('TForm1')).Create(nil);
end;