Delphi-使用TApplicationEvents OnShortCut事件检测Alt+;按键
我使用TApplicationEvents OnShortCut事件在Delphi程序中获得应用程序键盘快捷方式 使用以下代码:Delphi-使用TApplicationEvents OnShortCut事件检测Alt+;按键,delphi,vcl,Delphi,Vcl,我使用TApplicationEvents OnShortCut事件在Delphi程序中获得应用程序键盘快捷方式 使用以下代码: procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean) ; begin if (Msg.CharCode = VK_F9) then begin ShowMessage('F9 pressed!') ; Handled := T
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean) ;
begin
if (Msg.CharCode = VK_F9) then
begin
ShowMessage('F9 pressed!') ;
Handled := True;
end;
end;
问题:
我如何检测按下“ALT C”的时间?类似这样:
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
if (Msg.CharCode = Ord('C'))
and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0)
then begin
ShowMessage('Alt+C pressed!') ;
Handled := TRUE;
end;
end;
程序TForm1.ApplicationEvents1ShortCut(var Msg:TWMKey;
变量:布尔值);
开始
如果(Msg.CharCode=Ord('C'))
和(HiWord(Msg.KeyData)和KF_ALTDOWN 0)
然后开始
ShowMessage('Alt+C按下!');
已处理:=真;
结束;
结束;
请注意,对于快捷方式,仅使用Alt和某些键是一个不好的选择,因为系统使用它们来激活菜单项或对话框控件。或者您可以创建简单的TAction,它们比其他键先吃快捷方式。我的甜心Delphi:)该死的java。。。(我只是对Java世界感到非常不安)