delphi - RichEdit 不尊重带有粘贴内容的纯文本

Question

我创建一个新应用程序，放置 TRichedit 并将 PlainText 属性设置为 true。然后，我运行该应用程序并将一些富格式文本粘贴到 RichEdit 中。

我希望它显示为纯文本，但它会显示带有格式的内容。

任何人都知道如何使用 TRichedit 就像纯文本一样(而不是使用备忘录:))

Answer 1

您需要手动进行粘贴，以确保忽略格式。

if Clipboard.HasFormat(CF_TEXT) then
  RichEdit.SelText := Clipboard.AsText; 

从 WM_PASTE 的消息处理程序运行此代码。

我目前不知道如何拦截 CTRL+V 按键并将其替换为此代码。 WM_PASTE 消息不会发送到 Rich Edit 控件。

<小时/>

正如科迪在评论中建议的那样，一种解决方案如下:

• 确保编辑控件中的所有文本都标记为 protected 。
• 子类 TRichEdit 并覆盖 CNNotify。
• 处理 EN_PROTECTED 消息，如果 msg=WM_PASTE 则使用上面的粘贴文本代码，并从消息处理程序返回 1 来指示请求的操作(a丰富的粘贴)被拒绝。