昨天我发现了一种情况,即键盘快捷键没有在我预期的时候触发。
具体情况是:我按下了 MDI 子项上 ActionList 的一个 Action 的 ShortCut 组合键,同时聚焦了 MDI 表单上的侧栏。
我一直认为 ShortCuts 可以在全局范围内使用。他们究竟在哪些情况下会开火或不会开火?
最佳答案
这是一个看似简单的问题,但答案却长得惊人。首先,我将处理一些基础知识,然后通过 VCL 代码按照快捷方式进行操作,最终得出 - 我希望 - 一个令人满意的结论。
什么是快捷方式?
ShortCut 表示一个或多个引起操作的键的特殊键盘组合。 Special 对于赋予特定组合键意义的程序员来说是特殊的。
在 Delphi 中,快捷方式的类型为 TShortCut
在 Word
中声明为整数范围 (0..65535)。 ShortCut 通常由几个键构成,例如:
CTRL+K = scCtrl
+ Ord('K')
= 16384
+ 75
= 16459
.
如何指定快捷方式?
快捷方式可以分配给 ShortCut
或 SecondaryShortCuts
操作的属性或 ShortCut
MenuItem 的属性,从而调用该操作的 OnExecute
事件或 MenuItem 的 OnClick
当 ShortCut 的键盘组合被按下时的事件。
要处理 Action 的 ShortCut,需要启用 Action,并将其添加到未挂起的 ActionList 或附加到启用的 MenuItem。同样,要处理 MenuItem 的 ShortCut,需要将 MenuItem 添加到 Menu。
快捷方式也可以从 Application 解释的,一个 Form的或来自 ApplicationEvents ' OnShortCut
事件。在这些事件中,Msg
参数在其 CharCode
中保存 key 代码成员,以及可能的特殊键,如 Shift、Ctrl 或 Alt 可以使用 GetKeyState
提取:
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = Ord('K')) and (GetKeyState(VK_CONTROL) < 0) then
begin
Caption := 'CTRL+K pressed';
Handled := True;
end;
end;
如果Handled
参数设置为 True
,将跳过对该键的任何后续处理。ShortCut 是如何被捕获的?
VCL 不会保留所有指定快捷方式的列表。 (怎么可能?)。因此,所有击键都可能是快捷方式。这正是 VCL 解释 ShortCuts 的方式:通过评估按下的每个键。
Peter Beyond 写了一篇出色而全面的文章,涉及 A Key's Odyssey通过 VCL。简而言之,ShortCut 被捕获如下:
TApplication.Run
获取发送到应用程序的每条 Windows 消息,TApplication.ProcessMessage
电话IsKeyMsg
传递消息 - 如果是 WM_KEYDOWN
留言 - 转至 CN_KEYDOWN
的消息处理程序集中控制 . ShortCut 是如何处理的?
TWinControl.CNKeyDown
检查键是否是菜单键(我们将看到此菜单的定义超出了物理菜单):TWinControl.IsMenuKey
首先检查键是控件内的快捷方式还是其父项中的一个 弹出菜单 ,TMenu.IsShortCut
1) 遍历其所有(子)菜单项并调用 OnClick
带有快捷方式的已启用 MenuItem 的事件处理程序(如果有)TCustomForm.IsShortCut
检查键是否为控件所在的窗体的快捷方式。 2),OnShortCut
表单事件 被调用,如果分配,FActionLists
. That was considered a bug从 BDS2006 开始,该字段被取消,ActionLists 也可以由 Form 间接拥有。TCustomActionList.IsShortCut
遍历其所有操作并调用 HandleShortCut
在其 ShortCut
中设置了快捷方式的已启用操作或 SecondaryShortCuts
属性(property),如果有的话,Application.IsShortCut
被调用(通过 CM_APPKEYDOWN
),OnShortCut
应用程序事件被解雇,这包括 OnShortCut
项目中所有 ApplicationEvents 组件的事件,如果有分配的话,IsShortCut
的套路主窗体 (见 2)),但仅当启用 MainForm 时。例如。当事件窗体是模态窗体时,主窗体将被禁用。这将触发 OnShortCut
MainForm 事件 或将遍历所有直接或间接拥有的 MainForm 的 ActionLists (取决于上面提到的 Delphi 版本)。 那么,ShortCut 是什么时候处理的呢?
几时:
OnShortCut
当前事件 Form 或 MainForm 的事件,但仅当启用 MainForm 时,OnShortCut
应用程序或任何 ApplicationEvents 组件的事件。 什么时候不处理 ShortCut ?
当它设置为:
关于delphi - ShortCut 什么时候触发?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27083261/