<pre class="brush: delphi;" title="多機能マウス対応">type
  TForm1 = class(TForm)
  private
    procedure WMAppCommand(var Msg: TMessage); message WM_APPCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{&#36;R *.dfm}

{ TForm1 }

uses
  AppCommand;

procedure TForm1.WMAppCommand(var Msg: TMessage);
begin
  case GET_APPCOMMAND_LPARAM(Msg.LParam) of
    APPCOMMAND_BROWSER_FORWARD:
    begin
      ShowMessage('FORWARD');
      Msg.Result := 1;
    end;
    APPCOMMAND_BROWSER_BACKWARD:
    begin
      ShowMessage('BACKWARD');
      Msg.Result := 1;
    end;
  end;
end;
</pre>
<p>参考というか、そのまんま答えが下記のページにあった。<a href="http://ja.efreedom.com/Question/1-2458730/Delphi-%E3%81%A6%E9%80%B2%E3%82%80%E3%81%A8%E6%88%BB%E3%82%8B%E3%83%9E%E3%82%A6%E3%82%B9-%E3%83%9B%E3%82%BF%E3%83%B3%E3%81%AE%E3%82%A4%E3%83%98%E3%83%B3%E3%83%88%E3%82%92%E6%A4%9C%E5%87%BA%E3%81%99%E3%82%8B%E3%81%AB%E3%81%AF">Delphi で進むと戻るマウス ボタンのイベントを検出するには？</a></p>