用Delphi处理击键鼠标
可能重复: 我有一个带有上一个和下一个按钮的鼠标,可以在任何浏览器和文件浏览器上使用 我想在我的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
谢谢,克雷格·彼得森给出了解决方案
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;