FMX中TMenuItem单键快捷键设置失效问题及实现方法咨询

问题根源 #

你遇到的不是系统不支持单键快捷键，核心原因是VCL的菜单/Action快捷键路由逻辑做了限制：

• VCL内部处理快捷键的核心函数是IsShortCut，默认会过滤掉没有修饰键（Ctrl/Alt/Shift）的普通字符键/虚拟键，只有带修饰键的组合键才会被正常路由到菜单项或Action执行
• 就算你强行给ShortCut属性赋值了单键值，菜单上的显示是正常的，但按键事件触发时，路由逻辑根本不会把这个按键匹配到对应菜单项，自然不会触发点击事件
• 如果你的窗体上有输入类控件（比如TEdit、TMemo），普通单键默认会先被输入控件捕获处理，也不会透传到菜单的快捷键处理流程里。

更优雅的替代方案 #

不用在FormKeyDown里逐个判断按键，有两种更通用的实现方式：

方案1：重写窗体的IsShortCut方法 #

直接重载窗体的IsShortCut虚函数，让它支持单键匹配即可，原有给菜单赋值单键快捷键的代码完全不需要修改：

type
  TMainForm = class(TForm)
    // 原有控件、方法声明保持不变
  protected
    function IsShortCut(var Message: TWMKey): Boolean; override;
  end;

function TMainForm.IsShortCut(var Message: TWMKey): Boolean;
var
  ShortCut: TShortCut;
begin
  // 先判断当前没有输入控件处于聚焦状态，避免干扰用户正常打字输入
  if not (ActiveControl is TCustomEdit) then
  begin
    ShortCut := Message.CharCode;
    // 匹配主菜单的单键快捷键
    Result := Menus.IsShortCut(Menu, ShortCut);
    if Result then Exit;
    // 如果用了TActionList，补充Action的单键匹配
    Result := ActionList1.IsShortCut(ShortCut);
    if Result then Exit;
  end;
  // 原有逻辑正常处理组合键快捷键
  Result := inherited IsShortCut(Message);
end;

方案2：用TApplicationEvents的OnShortCut事件 #

如果不想重写窗体的虚方法，拖一个TApplicationEvents控件到主窗体，处理它的OnShortCut事件即可，判断逻辑和上面的重载逻辑完全一致。

注意事项 #

• 一定要加输入控件聚焦状态的判断，避免在输入框使用时触发单键快捷键，干扰正常输入
• 单键快捷键优先选择F1~F12这类功能键，如果要使用字母键，建议避开常用输入字符，避免和正常操作冲突。

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