有些属性是从它的祖先类继承下来的,只不过现在公布出来,如果要查看实现方法的话,就得去看它的祖先类,OnDragDrop是一个事件不是属性,其申明的方法是在TWinControl类中FOnDragDrop:TDragDropEvent而TDragDropEvent类型的定义如下TDragDropEvent = procedure(Sender, Source: TObject;
X, Y: Integer) of object;
X, Y: Integer) of object;
调试欢乐多
你可以到它的父类中去找到,看它如何实现。