delphi – 鼠标输入/离开消息不起作用?
发布时间:2020-12-15 09:31:31 所属栏目:大数据 来源:网络整理
导读:我正在尝试检测鼠标进入/离开消息CM_MOUSEENTER和CM_MOUSELEAVE,但它没有捕获它.我在这做错了什么? type TMyControl = class(TCustomControl) private procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var
我正在尝试检测鼠标进入/离开消息CM_MOUSEENTER和CM_MOUSELEAVE,但它没有捕获它.我在这做错了什么?
type TMyControl = class(TCustomControl) private procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; end; procedure TMyControl.CMMouseEnter(var Message: TMessage); begin //Handle mouse entering //Breakpoint never reached,procedure never called end; procedure TMyControl.CMMouseLeave(var Message: TMessage); begin //Handle mouse leaving //Breakpoint never reached,procedure never called end; procedure TMyControl.WMNCHitTest(var Message: TWMNCHitTest); var Ch: Bool; begin if csDesigning in ComponentState then Message.Result := HTCLIENT else begin Ch:= False; //Do checks and pass `Ch:= True;` if something changed... if Ch then Invalidate; end; end; 解决方法
我想出了我的问题:我也在使用WM_NCHITTEST,我没有传递继承;我添加了这个,现在它工作正常.
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |