TMenuItem与TActionList快捷键冲突问题及需求说明

问题场景 #

将应用从MDI模式改为PageControl标签页嵌入模式后，出现以下问题：

• 子表单的TActionList快捷键被主窗口TMainMenu的同快捷键覆盖，触发主菜单事件而非子表单Action事件。
• 仅当主菜单对应TMenuItem设为禁用时，子表单的TActionList快捷键才正常工作。

需求：优先执行当前激活子表单的ActionList快捷键；无对应快捷键时，再触发主菜单的快捷键。

解决方案 #

通过重写主窗体的消息处理流程，在主菜单处理快捷键前，先检查当前激活标签页中子表单的ActionList是否存在匹配的快捷键，若存在则优先执行。

步骤1：在主窗体添加快捷键检查方法 #

在主窗体Unit1的private声明中添加方法，用于检查当前激活标签页的子表单是否有匹配的Action快捷键：

function CheckActiveTabAction(const Key: Word; Shift: TShiftState): Boolean;

实现该方法：

function TForm1.CheckActiveTabAction(const Key: Word; Shift: TShiftState): Boolean;
var
  TabSheet: TTabSheet;
  EmbeddedForm: TForm;
  CompIdx, CtrlIdx: Integer;
  TargetAction: TAction;
  ActionList: TActionList;
begin
  Result := False;
  // 获取当前选中的标签页
  TabSheet := PageControl1.ActivePage;
  if not Assigned(TabSheet) then Exit;

  // 遍历标签页中的控件，找到嵌入的Form
  for CtrlIdx := 0 to TabSheet.ControlCount - 1 do
  begin
    if TabSheet.Controls[CtrlIdx] is TForm then
    begin
      EmbeddedForm := TForm(TabSheet.Controls[CtrlIdx]);
      // 遍历Form中的所有ActionList组件
      for CompIdx := 0 to EmbeddedForm.ComponentCount - 1 do
      begin
        if EmbeddedForm.Components[CompIdx] is TActionList then
        begin
          ActionList := TActionList(EmbeddedForm.Components[CompIdx]);
          // 查找匹配当前快捷键的Action
          TargetAction := ActionList.FindShortCut(Key, Shift);
          if Assigned(TargetAction) and TargetAction.Enabled then
          begin
            TargetAction.Execute;
            Result := True;
            Exit;
          end;
        end;
      end;
    end;
  end;
end;

步骤2：重写主窗体的WndProc消息处理 #

在主窗体Unit1的private声明中添加重写的WndProc方法：

procedure WndProc(var Message: TMessage); override;

实现该方法，拦截键盘消息并优先检查子表单Action：

procedure TForm1.WndProc(var Message: TMessage);
var
  KeyCode: Word;
  ShiftState: TShiftState;
begin
  // 处理键盘按下消息（包括系统按键）
  if (Message.Msg = WM_KEYDOWN) or (Message.Msg = WM_SYSKEYDOWN) then
  begin
    KeyCode := Message.WParam;
    ShiftState := KeyDataToShiftState(Message.LParam);
    // 先检查子表单是否有匹配的Action
    if CheckActiveTabAction(KeyCode, ShiftState) then
    begin
      // 标记消息已处理，不再传递给主菜单
      Message.Result := 0;
      Exit;
    end;
  end;
  // 无匹配Action时，交给默认消息处理（主菜单等）
  inherited;
end;

效果验证 #

1. 编译运行主窗体，点击Button1打开嵌入的Form2。
2. 按下Ctrl+A/Ctrl+B/Ctrl+C，会触发子表单TActionList的对应事件，弹出子表单的提示框。
3. 关闭嵌入的Form2后，按下相同快捷键，会触发主菜单的对应事件，弹出主菜单的提示框。

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