delphi - 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;