MaskEditImpl1.pas 中 TMaskEditX = class(TActiveXControl, IMaskEditX) 大概是真正的类的定义,功能都写在这儿。而
MaskEditXControl1_TLB.pas中
TMaskEditX = class(TOleControl) 估计是对真正类的包装,他只是用来描述接口。呵呵,只是猜想,谁知道究竟是什么意思?
MaskEditXControl1_TLB.pas中
TMaskEditX = class(TOleControl) 估计是对真正类的包装,他只是用来描述接口。呵呵,只是猜想,谁知道究竟是什么意思?
你的定义/动作都在这了。
>> TMaskEditX = class(TActiveXControl, IMaskEditX)
表明这个ActiveX控件从哪里继承,使用的哪个接口,你的代码放在这个类里,符合delphi中自定义类的声明和使用标准>>而在MaskEditXControl1_TLB.pas中有如下定义:
>> TMaskEditX = class(TOleControl)
表明该类以什么类型封装,是完全自动产生的,符合delphi内部类的封装标准,内容会在每一次type library被重新编辑或刷新或重构,任何手工添加的将会自动清除