Delphi XE2 CMMouseLeave 未在 TCustomControl 上触发

Question

在 Delphi 5 中这曾经有效。我有一个源自 TCustomControl 的组件，并且我实现了 cmmouseleave 消息:

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

现在，如果我只是将鼠标移到控件上，则会触发消息，但如果我在按住鼠标左键的同时移动鼠标，则不会触发相同的消息。AFAIK我还没有调用begindrag方法并且dragmode设置为手动。任何线索可能会发生什么？

Answer 1

当您按下左键时，鼠标被捕获。因此，即使鼠标位于控件之外，控件也会接收鼠标移动消息 (WM_MOUSEMOVE)。当释放按钮时，它会收到鼠标离开消息。 D5 也应该如此。

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