ImageEn, unit iexRichEdit
TIEGetDragDropEffectEvent
Declaration
TIEGetDragDropEffectEvent = procedure(Sender: TObject; ShiftState: TShiftState;
var AllowedEffects:
TIEDropEffects
; var Handled: Boolean) of object;