问德尔福XE2 CMMouseLeave没有在TCustomControl上触发
EN

Stack Overflow用户

提问于 2013-12-11 17:23:21

回答 1查看 451关注 0票数 3

在Delphi 5中，这个方法曾经起作用。我有一个从TCustomControl派生而来的组件，并实现了cmmouseleave消息：

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

现在，如果我只是将鼠标移到控件上，消息就会被触发，但是如果我在移动鼠标的同时按下鼠标左键，则不会触发相同的消息。AFAIK，我没有调用开始拖动方法，并将拖动模式设置为手动模式。知道会发生什么事吗？

回答已采纳

发布于 2013-12-11 17:36:48

当你按左边的按钮时，鼠标就会被捕获。因此，即使鼠标在控件之外，控件也会接收鼠标移动消息(WM_MOUSEMOVE)。当按钮被释放时，它将收到鼠标离开消息。D5也应该是这样的。

如果不希望在响应csCaptureMouse的情况下捕获鼠标，则可以从ControlStyle中排除WM_LBUTTONDOWN。

票数 6

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/20525833

复制

相似问题

问德尔福XE2 CMMouseLeave没有在TCustomControl上触发EN