如何禁用拖放TRichEdit或TRzRichEdit

Question

如何阻止TRichEdit中的拖放？德尔福代码 我使用Rich编辑并且在阻止拖放功能方面遇到困难，特别是从表单外部拖动文本，从IE进入我的RichEdit。

Answer 1

尝试更改按键向下/向上事件将其设置为只读。 onkey down，将其设置为richedit1.readonly：= false;然后在keyup richedit1.readonly：= true;它的工作原理..它使得粘贴功能

Answer 2

请参阅MSDN上的RevokeDragDrop;

uses
  activex;

RevokeDragDrop(RichEdit1.Handle);