haitao:
哦,aimigo的好像只是AccessPrivate如何跨单元、跨类地访问Delphi 类的私有域方法、属性
[阅读: 463] 2009-06-10 09:43:06
现在是需要在运行时为对象或类增加一个属性
以前为Ttreenode类增加过一个string属性,修改vcl源代码是最简单的,只需要加一行
如果采用这种运行时增加属性的方法,可能还不行:因为Ttreenode是被Ttreeview内部使用的,无法让它创建node时都调用一个函数来增加node的属性啊。。。。。。。