WMMouseWheel不在Delphi中工作

Question

我写了以下代码： procedure MouseWheel(var Msg:TWMMouseWheel);message WM_MOUSEHWHEEL; 我将它用于基于TPanel的组件（TMyP = class（TPanel）） （请注意，由于我自己的原因，我不想使用TCustomPanel）

但是当我在面板上使用鼠标滚轮时，无论如何都不会调用该事件。 请帮帮我！

Answer 1

将鼠标滚轮消息发送到具有焦点的控件。面板通常无法集中精力。

我在我的应用程序中使用此TApplicationEvents.OnMessage处理程序将鼠标滚轮消息发送到鼠标光标下的窗口而不是聚焦控件。

procedure TMainDataModule.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
var
  Wnd: HWND;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Wnd := WindowFromPoint(Msg.pt);
    // It must be a VCL control otherwise we could get access violations
    if IsVCLControl(Wnd) then
      Msg.hwnd := Wnd; // change the message receiver to the control under the cursor
  end;
end;

Answer 2

除了Andreas Hausladen的回答你还需要知道，有些鼠标驱动程序不会发送WM_MOUSEWHEEL而是发送几条WM_VSCROLL消息。你也需要检查一下。

更新：请注意，还存在WM_HSCROLL消息，这些消息也可以由具有两个轮子或倾斜轮的一些鼠标发送。这就是我最初编写WM_SCROLL的原因。