WMMouseWheel不在Delphi中工作

发布时间：2020-12-15 10:07:13 所属栏目：大数据来源：网络整理

导读：我写了以下代码：过程MouseWheel(var Msg：TWMMouseWheel);消息WM_MOUSEHWHEEL; 我将它用于基于TPanel的组件(TMyP = class(TPanel)) (请注意,由于我自己的原因,我不想使用TCustomPanel) 但无论如何,当我在面板上使用鼠标滚轮时,不会调用该事件. 请帮帮我！

我写了以下代码：
过程MouseWheel(var Msg：TWMMouseWheel);消息WM_MOUSEHWHEEL;
我将它用于基于TPanel的组件(TMyP = class(TPanel))
(请注意,由于我自己的原因,我不想使用TCustomPanel)

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

解决方法

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

我在我的应用程序中使用此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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!