delphi – 鼠标输入离开消息不起作用？

概述我正在尝试检测鼠标进入/离开消息CM_MOUSEENTER和CM_MOUSELEAVE,但它没有捕获它.我在这做错了什么？ type TMyControl = class(TCustomControl) private procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedur 我正在尝试检测鼠标进入/离开消息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 calledend;procedure TMyControl.CMMouseLeave(var Message: TMessage);begin  //Handle mouse leaving  //Breakpoint never reached,procedure never calledend;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,我没有传递继承;我添加了这个,现在它工作正常. 总结

以上是内存溢出为你收集整理的delphi – 鼠标输入/离开消息不起作用？全部内容，希望文章能够帮你解决delphi – 鼠标输入/离开消息不起作用？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。