不要说Click事件。 我需要主动读取 鼠标状态。

解决方案 »

  1.   

    function HookMouseProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;stdcall;
    var
     pMouseHook: MOUSEHOOKSTRUCT; 
    begin
      if iCode >= 0 then
      begin
      case wParam of
          WM_MOUSEMOVE:
          begin
            pMouseHook := pMOUSEHOOKSTRUCT(lparam)^;
            PostMessage(g_hDestWnd, SHOW_MENU_MSG, pMouseHook.pt.X, pMouseHook.pt.Y);
          end;
          WM_LBUTTONDOWN: // 左键
          begin      end;
          WM_RBUTTONDOWN: // 右键
          begin      end;
        end;
      end;
      
      Result := CallNextHookEx(g_hHook, iCode, wParam, lParam);
    end;