Delphi 10.4.2 VCL MDI下如何阻止子窗体可见时主菜单动作执行？

问题根源 #

Delphi 10.4.2 调整了VCL消息泵的快捷键路由逻辑：原版本中主窗体的菜单快捷键匹配会优先判断当前活跃窗体的上下文，只要非主窗体处于激活状态，主窗体的IsShortCut()方法就会被调用并允许拦截请求；但10.4.2的实现中，TApplication在消息预处理阶段会直接遍历所有顶级窗体的MainMenu组件，匹配到快捷键后就直接执行对应菜单项动作，同时主动将焦点切换回主窗体，完全跳过了主窗体IsShortCut()的拦截流程，这也是旧版本兼容方案失效的核心原因。

可落地实现方案 #

方案一：应用级消息精准拦截（推荐，无侵入性） #

通过TApplicationEvents.OnMessage事件，在VCL将消息路由到主窗体菜单逻辑前做判断，既不会影响子窗体本地快捷键的正常运行，也能精准阻断主窗体菜单的抢焦点动作。
核心逻辑：

• 从Win32 API获取当前真实持有焦点的窗口对应的VCL窗体实例，不依赖Screen.ActiveForm这类存在取值偏差的属性
• 对键盘消息，先顺着当前焦点窗体的控件、窗体层级做完整的快捷键匹配测试，如果当前活跃上下文能处理该快捷键，就正常放行
• 如果当前活跃上下文完全处理不了该按键序列，直接将消息标记为已消费，阻断后续主窗体菜单的匹配流程

该方案为全局拦截，只需要在主窗体挂一个TApplicationEvents组件，不需要对所有子窗体做改动，维护成本最低。

示例代码片段：

uses Winapi.Messages, Vcl.Menus;

// 辅助函数：获取当前真实焦点对应的窗体实例
function GetCurrentFocusedForm: TCustomForm;
var
  hFocus: HWND;
begin
  hFocus := GetFocus;
  Result := nil;
  if hFocus = 0 then Exit;
  Result := GetParentForm(TWinControl(hFocus));
end;

procedure TMainForm.ApplicationEvents1Message(var Msg: TMsg; var Handled: Boolean);
var
  CurrentFocusForm: TCustomForm;
begin
  Handled := False;
  // 仅处理键盘输入相关消息
  if not (Msg.message in [WM_KEYDOWN, WM_SYSKEYDOWN, WM_KEYUP, WM_SYSKEYUP]) then Exit;

  CurrentFocusForm := GetCurrentFocusedForm;
  // 焦点落在主窗体、无有效焦点窗体时，不做任何拦截，保持原逻辑
  if not Assigned(CurrentFocusForm) or (CurrentFocusForm = Self) or not CurrentFocusForm.Visible then
    Exit;

  // 测试当前焦点窗体的本地快捷键处理能力
  Handled := not CurrentFocusForm.IsShortCut(TWMKey(Msg));
  if Handled then
    Msg.message := 0; // 阻断无效消息的后续路由
end;

方案二：非主窗体IsShortCut重写优化（轻量实现） #

之前尝试的重写IsShortCut()方案失效，本质是硬编码拦截了Alt组合键，连带阻断了窗体本地快捷键的处理。调整重写逻辑为：先跑通继承而来的本地快捷键匹配流程，把本地能处理的快捷键正常放行，处理不了的消息再直接标记为已消费，不让消息上抛给主窗体的菜单逻辑。

该方案改动轻量，但需要为每个需要屏蔽主窗体快捷键的子窗体添加重写逻辑，维护成本随子窗体数量上升。

示例代码片段（适用于所有需要屏蔽主窗体快捷键抢焦点的非模态/MDI子窗体）：

function TCustomChildForm.IsShortCut(var Message: TWMKey): Boolean;
begin
  // 先执行父类的本地快捷键匹配逻辑，保证本地快捷键正常工作
  Result := inherited IsShortCut(Message);
  // 本地处理不了的快捷键，直接标记为已处理，阻断消息路由到主窗体菜单
  if not Result then
    Result := True;
end;

避坑提示 #

• 针对需要全局生效的主窗体快捷键（如全局保存、全局查找），可以在拦截逻辑中增加白名单判断：如果匹配到的菜单项设置了mrGlobal角色、或者绑定到应用级动作，直接放行，不做拦截
• 不要硬编码拦截所有Alt键按下的消息，否则会阻断子窗体自身菜单栏的激活逻辑，导致用户按Alt键无法唤起子窗体的菜单
• MDI应用中尽量不用Screen.ActiveForm判断当前焦点上下文，MDI框架的窗口层级会导致该属性频繁返回主窗体，判断结果偏差较大

内容的提问来源于stack exchange，提问作者wordy