擊鍵鼠標採用德爾福

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;