Delphi菜单快捷键异常：按S仅切换项不执行，且跳过中间项

问题现象 #

在Delphi XE6和Delphi 7环境下，菜单操作出现以下异常：

• 按N可直接触发N̲ew的处理逻辑，按O直接执行O̲pen操作，按P直接启动Op̲en Recent；
• 但按S仅会高亮S̲ave，再次按S切换高亮Save & Minimiz̲e，两次都不会执行对应操作，还跳过了同为S开头的Save As项；
• 即使移除S̲ave的Ctrl+S全局快捷键，问题仍未解决。

疑问点 #

1. 为何按S仅在两项间切换高亮，却不执行操作？
2. 为什么会跳过中间的Save As项？
3. 同样是首字母开头的Open和Open Recent，按O却不会出现切换高亮的情况？

最小可复现示例（CRME） #

FMain.pas #

unit FMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ActnList;

type
  TForm1 = class(TForm)
     ActionList1: TActionList;
    actSave: TAction;
    actSaveAs: TAction;
    actSaveAndMinimize: TAction;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    SaveMinimize1: TMenuItem;
    procedure actSaveExecute(Sender: TObject);
    procedure actSaveAsExecute(Sender: TObject);
    procedure actSaveAndMinimizeExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.actSaveExecute(Sender: TObject);
begin
    ShowMessage('save');
end;

procedure TForm1.actSaveAsExecute(Sender: TObject);
begin
    ShowMessage('saveas');
end;

procedure TForm1.actSaveAndMinimizeExecute(Sender: TObject);
begin
    ShowMessage('save and minimize');
end;

end.

FMain.dfm #

object Form1: TForm1
  Left = 448
  Top = 220
  Width = 504
  Height = 281
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ActionList1: TActionList
    Left = 48
    Top = 40
    object actSave: TAction
      Category = 'File'
      Caption = '&Save'
      OnExecute = actSaveExecute
    end
    object actSaveAs: TAction
      Category = 'File'
      Caption = 'Save &as'
      OnExecute = actSaveAsExecute
    end
    object actSaveAndMinimize: TAction
      Category = 'File'
      Caption = '&Save && Minimi&ze'
      OnExecute = actSaveAndMinimizeExecute
    end
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 40
    object File1: TMenuItem
      Caption = '&File'
      object Save1: TMenuItem
        Action = actSave
      end
      object SaveAs1: TMenuItem
        Action = actSaveAs
      end
      object SaveMinimize1: TMenuItem
        Action = actSaveAndMinimize
      end
    end
  end
end

问题根源与解决办法 #

核心逻辑 #

Delphi菜单的下划线快捷键（通过&标记）遵循以下处理规则：

• 按下字母键时，优先匹配所有以该字母为快捷键标记的菜单项；
• 若存在多个匹配项，会循环高亮这些项，需按Enter确认才会执行；
• 若仅存在一个匹配项，则直接执行对应操作。

具体原因分析 #

1. Save As被跳过：actSaveAs的Caption设置为Save &as，其快捷键标记的是字母a而非s，所以按S时不会被匹配到，自然被跳过；
2. S键仅切换高亮不执行：actSave的&Save和actSaveAndMinimize的&Save && Minimi&ze都将s设为快捷键（第一个&标记了单词首字母S），导致按S时存在两个匹配项，Delphi只会循环高亮，不会自动执行；
3. Open无切换行为：Open的快捷键是o，而Open Recent的快捷键是p（假设其Caption为Open &Recent），两者快捷键唯一，所以按O只会匹配到Open并直接执行。

解决方案 #

修改菜单项的快捷键标记，确保每个项的快捷键唯一：

// 修改ActionList中的Caption设置
object actSave: TAction
  Caption = '&Save'  // 快捷键S
end
object actSaveAs: TAction
  Caption = 'Save &As'  // 快捷键A
end
object actSaveAndMinimize: TAction
  Caption = 'Save &Minimize'  // 快捷键M
end

这样调整后：

• 按S仅匹配Save，直接执行操作；
• 按A匹配Save As，按M匹配Save & Minimize；
• 所有快捷键无冲突，操作逻辑符合预期。

内容的提问来源于Stack Exchange，提问作者Ian Boyd