在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我有一个TRichEdit
控件。(请注意,TRichEdit
Delphi 11 Alexandria 中的类与以前的 Delphi 版本不同)。
现在,它似乎TRichEdit
有一个内置粘贴命令和快捷方式:当我按下 CTRL+V 时,剪贴板内容被插入(图像、格式化文本)。
到目前为止,一切都很好。但是为了允许用户显式粘贴纯文本(即未格式化的文本)——即使剪贴板上有格式化的文本,我也创建了一个“粘贴纯文本”菜单项命令:
procedure TForm1.menuitemPastePlainTextClick(Sender: TObject);
begin
var ClipboardPlainText := Vcl.Clipbrd.Clipboard.AsText;
RichEdit1.SelText := ClipboardPlainText;
end;
我已为此命令分配了快捷键 SHIFT+CTRL+V。(此快捷方式在许多应用程序中广泛用于粘贴未格式化的文本)。但是,当我在 RichEdit1 中键入 SHIFT+CTRL+V 时,会粘贴剪贴板中的 FORMATTED 文本!显然,RichEdit1 中的内置 SHIFT+CTRL+V 命令的优先级高于我的自定义快捷方式。
那么,如何摆脱 RichEdit1 中内置的 SHIFT+CTRL+V 命令来粘贴纯文本呢?