如何在Delphi FMX Windows窗体中检测鼠标的后退和前进按钮？

unit MainForm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, Winapi.Windows;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FMouseHook: HHOOK;
  public
    { Public declarations }
    procedure MouseHookCallback(nCode: Integer; wParam: WPARAM; lParam: LPARAM);
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if nCode = HC_ACTION then
  begin
    if (wParam = WM_XBUTTONUP) or (wParam = WM_XBUTTONDOWN) then
    begin
      // 检查鼠标事件是否与后退或前进按钮相关联
      if GET_XBUTTON_WPARAM(wParam) = XBUTTON1 then
      begin
        // 后退按钮被按下
        ShowMessage('后退按钮被按下');
      end
      else if GET_XBUTTON_WPARAM(wParam) = XBUTTON2 then
      begin
        // 前进按钮被按下
        ShowMessage('前进按钮被按下');
      end;
    end;
  end;

  Result := CallNextHookEx(Form1.FMouseHook, nCode, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 安装鼠标钩子
  FMouseHook := SetWindowsHookEx(WH_MOUSE_LL, @MouseHookProc, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // 卸载鼠标钩子
  UnhookWindowsHookEx(FMouseHook);
end;

procedure TForm1.MouseHookCallback(nCode: Integer; wParam: WPARAM; lParam: LPARAM);
begin
  // 鼠标钩子回调函数
end;

end.