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