如何禁用拖放TRichEdit或TRzRichEdit

Question

如何阻止TRichEdit中的拖放？我使用丰富的编辑，在阻止拖放功能方面有困难，特别是从表单外部拖动文本，比如从IE到我的RichEdit。

Answer 1

参见MSDN上的RevokeDragDrop；

uses
  activex;

RevokeDragDrop(RichEdit1.Handle);

Answer 2

尝试更改key down/ up事件，将其设置为只读。一旦按下，将其设置为richedit1.readonly := false；然后在keyup richedit1.readonly :=上设置为true；它可以工作。它一直禁用粘贴功能。