delphi - ShortCut 什么时候触发？

Question

昨天我发现了一种情况，即键盘快捷键没有在我预期的时候触发。

具体情况是:我按下了 MDI 子项上 ActionList 的一个 Action 的 ShortCut 组合键，同时聚焦了 MDI 表单上的侧栏。

我一直认为 ShortCuts 可以在全局范围内使用。他们究竟在哪些情况下会开火或不会开火？

Answer 1

这是一个看似简单的问题，但答案却长得惊人。首先，我将处理一些基础知识，然后通过 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 表单事件 被调用，如果分配，

如果未处理，则检查该键是否为 中的快捷方式。表单的主菜单 (见 1))，如果有的话，

如果未处理，则将 key 分派(dispatch)给所有 表单拥有的 ActionList (仍在谈论事件表格)。在 Delphi 版本 10 (BDS2006) 之前，这些 ActionList 需要由 Form 直接拥有并保存在 protected (在需要时可以进行干预)字段 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 是什么时候处理的呢？
几时:

设置为 PopupMenu 中已启用的 MenuItem，该菜单项附加到当前聚焦的控件或其任何父控件，

在 MainMenu 中设置已启用的 MenuItem，该菜单项显示在当前事件的 Form 或 MainForm 上，但仅当启用 MainForm 时才显示，

为当前事件的 Form 或 MainForm 拥有的未挂起的 ActionList 中的启用的 Action 设置，但仅当启用 MainForm 时，

中了OnShortCut当前事件 Form 或 MainForm 的事件，但仅当启用 MainForm 时，

中了OnShortCut应用程序或任何 ApplicationEvents 组件的事件。

什么时候不处理 ShortCut ？
当它设置为:

禁用的菜单项，

没有菜单的 MenuItem，

MainMenu 中未附加到 Form 的 MenuItem，

附加到同级的 PopupMenu 中的 MenuItem，

禁用的操作，

没有 Action 列表的 Action ，

ActionList 中不属于当前事件 Form 或 MainForm 的 Action。例如:另一个表单、数据模块、应用程序、实用程序单元等...

ActionList 中的一个 Action，它不直接由当前事件的 Form 或 BDS2006 以下 Delphi 版本中的 MainForm 拥有。