为什么Delphi程序中设置的Ctrl+D切换主题快捷键无法生效？

• 键盘消息被TMemo拦截：程序运行时TMemo长期持有输入焦点，作为标准编辑控件它会优先处理所有键盘输入消息，未被它处理的消息默认也不会向上冒泡到父窗口，导致ActionList无法接收到对应的快捷键触发信号。
• Form预处理权限未开启：Form的KeyPreview属性默认值为False，此时Form不会优先于子控件处理键盘事件，即使快捷键没有被TMemo消费，也无法触发关联Action的执行逻辑。
• 快捷键赋值存在隐患：你自行实现了ShortCut函数，而VCL的Vcl.Menus单元已提供稳定的原生实现，同时你传入的Word('d')为小写字符，部分运行环境下可能存在虚拟键码匹配偏差。

1. 开启Form的键盘预处理权限，你可以直接在Form设计器的属性面板中将KeyPreview设置为True，也可以在FormCreate事件中添加代码实现：

Self.KeyPreview := True;

2. 替换快捷键赋值逻辑，删除你自定义的ShortCut函数，在uses中引入Vcl.Menus单元后，使用原生方法赋值快捷键：

act_change_theme.ShortCut := ShortCut(Ord('D'), [ssCtrl]);

3. （可选兜底方案）如果TMemo依然存在快捷键拦截行为，可以添加Form的OnKeyDown事件手动触发主题切换逻辑：

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = Ord('D')) then
  begin
    act_change_theme.Execute;
    Key := 0; // 停止消息传递，避免TMemo后续处理该输入
  end;
end;

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