TControl为什么不能直接使用,非要重定义一个TMYCONTROL类型呢

Question

我想使用TCONTROL,但是不能使用,如tcontrol.onmousedown,编译出错,提示无此事件.但如果type
tmycontrol = class(tcontrol),再tmycontrol.onmousedown就可以使用了,不知为什么?
谢谢!

Answer 1

你看看TControl里OnMouseDown是定义在哪了

Answer 2

定义在PROTECTED中,所以要把它公开

Answer 3

你把tmycontrol = class(tcontrol)这个定义放到另外一个Unit里，然后在访问看看结果

Answer 4

Delphi 默认在同一个单元里的类可以互相访问其 protected 属性