delphi - 用 Delphi 处理按键鼠标

Question

可能重复：
如何在 Delphi 中检测前进和后退鼠标按钮事件？

我有一个带有上一个和下一个按钮的鼠标，可以在任何浏览器和文件浏览器上使用。

我想在我的 Delphi 应用程序中处理“上一个按钮”的事件。

有人已经这样做了吗？

谢谢，

Answer 1

Craig Peterson 给出了解决方案。

type
  TMyForm = class(TForm)
  private
    procedure WMAppCommand(var Msg: TMessage); message WM_APPCOMMAND;
  end;

procedure TMyForm.WMAppCommand(var Msg: TMessage);
begin
  case GET_APPCOMMAND_LPARAM(Msg.LParam) of
    APPCOMMAND_BROWSER_BACKWARD:
    begin
      // Do "go back" code
      Msg.Result := 1;
    end;
  end;
end;