Как отключить перетаскивание TRichEdit или TRzRichEdit

Question

Как заблокировать перетаскивание в TRichEdit? delphi code Я работаю с Rich edit и испытываю трудности с блокировкой функции перетаскивания, особенно перетаскивая текст из формы, скажем, из IE в мой RichEdit.

Answer 1

Посмотрите RevokeDragDrop на MSDN;

uses
  activex;

RevokeDragDrop(RichEdit1.Handle);

Answer 2

Попробуйте изменить событие нажатия клавиши вниз / вверх, установив его только для чтения. onkey down, установите для него значение richedit1.readonly:= false; а затем по ключу richedit1.readonly:= true; это работает.. это когда-либо отключил функции вставки