<< Нажмите, чтобы показать Содержание >> TCustomRichViewEdit.OnOleDragEnter [VCL и LCL]

Событие перетаскивания OLE (drag&drop). Происходит, когда пользователь перемещает указатель мыши в редактор во время перетаскивания. Определяет, можно ли принять перетаскиваемые данные и, если можно, какая операция будет выполнена.

type

  TRVOleDragEnterEvent = procedure (Sender: TCustomRichView; 

    const DataObject: IDataObject; Shift: TShiftState;

    X, Y: Integer; PossibleDropEffects: TRVOleDropEffects;

    var DropEffect: TRVOleDropEffect) of object;

property OnOleDragEnter: TRVOleDragEnterEvent;

Это низкоуровневое событие. Не используйте его, если вы не знакомы с OLE drag&drop.

После вызова этого события, пока пользователь перемещает указатель мыши внутри редактора, будет вызываться OnOleDragOver. Перетаскивание завершится либо вызовом OnOleDrop (успешно), либо вызовом OnOleDragLeave (операция отменена или указатель мыши покинул редактор).

Входные параметры:

DataObject – перетаскиваемые данные (IDataObject определён в модуле ActiveX).

Shift – состояние клавиатуры.

PossibleDropEffects – список возможных операций, множество из rvdeCopy, rvdeMove, rvdeLink (копировать, переместить, копировать как ссылку).

DropEffect – операция, которую бы выбрал редактор.

Выходные параметры:

DropEffect – операция, которую вы хотите совершить с перетаскиваемыми данными (одна из PossibleDropEffects, или rvdeNone если вы не хотите принимать эти данные).

 

См. также события:

▪OnOleDragOver;

▪OnOleDragLeave;

▪OnOleDrop.

См. также:

▪Перетаскивание данных.