FireMonkey中TMemo控件Ctrl+C/Ctrl+V快捷键失效问题排查

问题描述 #

我开发了一个Delphi跨平台应用，希望用户能在TMemo组件中复制粘贴文本。目前已实现复制粘贴按钮功能，但Windows用户更倾向使用Ctrl+C和Ctrl+V快捷键而非按钮。我编写了如下KeyDown事件代码，却在FireMonkey中无法生效：

procedure TFrameMemoLineCount.mTxtKeyDown(Sender: TObject; var Key: Word;
var KeyChar: WideChar; Shift: TShiftState);  
begin

  if (Key = vkC) and (ssCtrl in Shift) then
  begin
    mTxt.CopyToClipboard;
    Key := 0; // 阻止按键的后续处理
  end;
  if (Key = vkV) and (ssCtrl in Shift) then
  begin
    mTxt.PasteFromClipboard;
    Key := 0; // 阻止按键的后续处理
  end;

end;

失效原因 #

1. FireMonkey默认拦截机制：在Windows平台下，FMX的TMemo组件会优先拦截Ctrl+C/V这类系统级标准快捷键，直接交给系统处理，导致你的KeyDown事件根本接收不到这些组合键的触发信号。
2. 虚拟键值不匹配：代码中使用的vkC、vkV是VCL框架中的虚拟键常量，FireMonkey中并不直接支持，应使用Word('C')、Word('V')或者Winapi.Windows单元中的VK_C、VK_V（后者仅适用于Windows平台）。
3. TMemo自带快捷键：实际上FMX的TMemo默认就支持Ctrl+C/V快捷键，除非你手动关闭了它的默认上下文菜单或相关功能。

解决办法 #

方法1：启用组件默认快捷键（最简单）

检查TMemo的DefaultContextMenu属性是否设为True（默认就是开启状态），开启后组件会自动处理Ctrl+C/V等标准快捷键，无需额外写代码。

方法2：用ActionList注册自定义快捷键

如果需要在复制粘贴时添加额外逻辑，可以通过TActionList来注册全局快捷键，避免KeyDown事件的拦截问题：

procedure TFrameMemoLineCount.FormCreate(Sender: TObject);
var
  CopyAction, PasteAction: TAction;
begin
  // 注册复制快捷键
  CopyAction := TAction.Create(Self);
  CopyAction.ShortCut := ShortCut(Ord('C'), [ssCtrl]);
  CopyAction.OnExecute := procedure(Sender: TObject)
  begin
    mTxt.CopyToClipboard;
    // 这里可以添加自定义逻辑
  end;
  ActionList1.Add(CopyAction);

  // 注册粘贴快捷键
  PasteAction := TAction.Create(Self);
  PasteAction.ShortCut := ShortCut(Ord('V'), [ssCtrl]);
  PasteAction.OnExecute := procedure(Sender: TObject)
  begin
    mTxt.PasteFromClipboard;
    // 这里可以添加自定义逻辑
  end;
  ActionList1.Add(PasteAction);
end;

方法3：重写组件的KeyDown方法

如果必须通过按键事件处理，可以自定义TMemo子类，重写它的KeyDown方法，绕过默认拦截：

type
  TCustomMemo = class(TMemo)
  protected
    procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;
  end;

procedure TCustomMemo.KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
begin
  if (Key = Word('C')) and (ssCtrl in Shift) then
  begin
    CopyToClipboard;
    Key := 0;
    Exit;
  end;
  if (Key = Word('V')) and (ssCtrl in Shift) then
  begin
    PasteFromClipboard;
    Key := 0;
    Exit;
  end;
  inherited; // 处理其他按键
end;

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