Delphi 修正EmbeddedWEB不能使用中键滚动的bug

最新推荐文章于 2019-01-27 21:18:46 发布

Microblue

最新推荐文章于 2019-01-27 21:18:46 发布

阅读量987

点赞数

分类专栏： DELPHI VS PASCAL 文章标签： delphi integer function shell

本文链接：https://blog.csdn.net/yanjiaye520/article/details/7944456

版权

DELPHI VS PASCAL 专栏收录该内容

88 篇文章 5 订阅

订阅专栏

Modified : /EmbeddedWB/EmbeddedWB.pas

{$IFDEF Enable_MouseWheelFix}

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  hwnd: THANDLE;
  WndClass: string;
begin
  Result := CallNextHookEx(MouseHook, nCode, wParam, lParam);
  case nCode < 0 of
    TRUE: Exit;
    FALSE:
      begin
        if (wParam = WM_MOUSEWHEEL) then
        begin
          hwnd := WindowFromPoint(Mouse.CursorPos);
          if hwnd <> 0 then
          begin
           //hwnd := GetParent(hwnd); ///屏蔽这一句后正常
            if hwnd <> 0 then
            begin
              SetLength(WndClass, 25);
              SetLength(WndClass, GetClassName(hwnd, PChar(WndClass), Length(WndClass)));
              if WndClass = 'Shell DocObject View' then
                Windows.SetFocus(hwnd);
            end;
          end;
        end;
      end;
  end;
end;
{$ENDIF}