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

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

type

  TRVOleDragOverEvent = procedure (Sender: TCustomRichView;

    Shift: TShiftState; X, Y: Integer;

    PossibleDropEffects: TRVOleDropEffects;

    var DropEffect: TRVOleDropEffect) of object;

property OnOleDragOver: TRVOleDragOverEvent;

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

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

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

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

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

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

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

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

 

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

▪OnOleDragEnter;

▪OnOleDragLeave;

▪OnOleDrop.

См. также:

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