Delphi 如何禁用拖放TRichEdit或TRzRichEdit

如何在TRichEdit中阻止拖放？控制显示器代码

---

我使用Rich edit，在阻止拖放功能方面遇到困难，特别是从表单外部拖动文本，比如从IE提交到我的RichEdit。

尝试更改按键向下/向上事件，将其设置为只读。 按下键，将其设置为richedit1.readonly:=false；然后在keyup richedit1.readonly上：=true；它起作用了。。它始终取消了粘贴功能

请参见MSDN

uses
  activex;

RevokeDragDrop(RichEdit1.Handle);