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

[snowfog]

已知：
1。类名称，如'TButton'，是以字符串的形式提供的；
2。a: TObject;
求：创建TButton的实例a？

[richard_ouyang]

你的a应该实现Tbutton的，为什么是TObject，概念不对。

[hfyun]

//给个思路
var
a: TObject;
begin
//必须在调用前确保类已注册，当然可以在系统初始化时做，只需注册一次就行。
RegisterClass(TButton) ;
//创建实例
a := GetClass('TButton').Create ;
//
a.Free ;
end;


end;