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.为什么???
解决方案 »
- 关于Socket,请各位帮帮忙
- 在delphi中如何创建和访问Sql Server中的多维数据库?
- TcustomGrid继承问题?
- 请问那有《DELPHI5企业级解决方案及应用剖析》下载,我下载了几个,均不能打开,不知为何?
- 关于批提交?
- 小问题,大分数。我等你哟!
- 系统提示:file not found 'system.pas'....在线等待
- !给位大哥:请问怎样把word2000中的数据插入到数据库中
- 因女朋友在东莞虎门,想在虎门找份工作,不知有谁能帮忙?请看简历。
- 在Delphi4里怎么调用VB'ActiveX DLL?
- 请问各位大侠,在哪儿有关于DBChart的介绍?或者,有没有更好的控件,可以实现图形显示?
- 请教关于Class出错的问题
initialization
registerclass(Tform1);
var
form: TComponent;
TNAME: TPersistentClass;
begin
tname:=Tform1;
RegisterClasses([TNAME]);
form := TComponentClass(FindClass('Tform1')).Create(nil);
(form as tform).show;
end;