N NeutronDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-07 #2 是吗？ 不会吧，如果真不能的话，告诉你另一个方法！ 自己定义一个不就得得 TMouseEnterEvent=procedure(Sender:TObject) of Object; private FMouseEnter:TMouseEnterEvent; procedure CMMouseEnter(var Msg:TMessage);message CM_MOUSEENTER; publish OnMouseEnter:TMouseEnterEvent read FMouseEnter write FMouseEnter; end procedure CMMouseEnter(Var Msg:TMessage); begin if Assigned(FMouseEnter) then FMouseEnter(self); end;
是吗？ 不会吧，如果真不能的话，告诉你另一个方法！ 自己定义一个不就得得 TMouseEnterEvent=procedure(Sender:TObject) of Object; private FMouseEnter:TMouseEnterEvent; procedure CMMouseEnter(var Msg:TMessage);message CM_MOUSEENTER; publish OnMouseEnter:TMouseEnterEvent read FMouseEnter write FMouseEnter; end procedure CMMouseEnter(Var Msg:TMessage); begin if Assigned(FMouseEnter) then FMouseEnter(self); end;
V vagabond Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-07 #3 label本来就有个mouseenter事件,与其重新定义,还不如在内部接管,我只是不明白它和 click有什么不同,为什么click可以重载而它就不行?
V vagabond Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-07 #4 还有:为什么我的控件在设计时就执行mouseenter事件,而不执行mouseleave事件?
