~~~~~~~~~~如何根据类名称创建对象~~~~~~~~~~

snowfog 2003-01-14 06:50:51
已知:
1。类名称,如'TButton',是以字符串的形式提供的;
2。a: TObject;
求:创建TButton的实例a?
...全文
4 点赞 收藏 2
写回复
2 条回复
hfyun 2003年01月14日
//给个思路
var
a: TObject;
begin
//必须在调用前确保类已注册,当然可以在系统初始化时做,只需注册一次就行。
RegisterClass(TButton) ;
//创建实例
a := GetClass('TButton').Create ;
//
a.Free ;
end;


end;
回复 点赞
richard_ouyang 2003年01月14日
你的a应该实现Tbutton的,为什么是TObject,概念不对。
回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3418

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告