使用Delphi处理击键鼠标

Question

  

可能重复：
  How to Detect Forward and Back Mouse Button Events in 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;