delphi - 如何禁用拖放 TRichEdit 或 TRzRichEdit

Question

如何在 TRichEdit 中阻止拖放？德尔福代码 我使用 Rich edit，并且很难阻止拖放功能，特别是从表单外部拖动文本，比如从 IE 拖到我的 RichEdit。

Answer 1

参见RevokeDragDrop在 MSDN 上；

uses
  activex;

RevokeDragDrop(RichEdit1.Handle);