Delphi10.3里 Memo1/richedit1 查找对话框粘贴 问题解决

 删除 

自己 写 粘贴 过程,  uses  Clipbrd ;

var
  ClipboardText: string;
begin
  ClipboardText := Clipboard.AsText;
  // 08 ]粘贴时，将  剪贴板文本中的 TAB 字符   替换为 四个空格
  ClipboardText := StringReplace(ClipboardText, #9, '    ', [rfReplaceAll]);
  Memo1.SelText:=  ClipboardText;
end;

 Richedit除了删除EditPasteCmd，

 

还要 取消Ctrl+V快捷键