比如有个类:
TTestClass=class(TComponent)
private p
TTestClass=class(TComponent)
private p
阅读背景：
如何把一个vcl组件(直接继承TComponent而非TWinControl)改写成activex方式？
来源：互联网
分享到：
