用Delphi处理击键鼠标

用Delphi处理击键鼠标,delphi,mouseevent,keystroke,Delphi,Mouseevent,Keystroke,可能重复: 我有一个带有上一个和下一个按钮的鼠标,可以在任何浏览器和文件浏览器上使用 我想在我的Delphi应用程序中处理上一个按钮的事件 有人已经做过了吗 谢谢,克雷格·彼得森给出了解决方案 type TMyForm = class(TForm) private procedure WMAppCommand(var Msg: TMessage); message WM_APPCOMMAND; end; procedure TMyForm.WMAppCommand(var

可能重复:

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

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

有人已经做过了吗


谢谢,

克雷格·彼得森给出了解决方案

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;