Control-C 和 Control-V 在 FireMonkey 的备忘录中不起作用

Question

我有一个 Delphi 多平台应用程序。我想允许我的用户在 TMemo 组件中复制和粘贴文本。我有两个用于复制和粘贴的按钮。它工作得很好，但在 Windows 应用程序中使用 Control-C 和 Control-V 是一件好事。我的用户不想使用粘贴按钮。他们想使用 Control-V。

此事件在 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; // Prevenir o processamento adicional da tecla
  end;
  if (Key = vkV) and (ssCtrl in Shift) then
  begin
    mTxt.PasteFromClipboard;
    Key := 0; // Prevenir o processamento adicional da tecla
  end;

end;

Answer 1

将备忘录的

ControlStyle

属性设置为

Platform

以启用本机操作系统控制行为。默认设置为

Styled

。

有关更多详细信息，请参阅 Embarcadero 文档：

FireMonkey 本机控件