TDragOverEvent procedure type

The type of an OnDragOver handler.

Declaration

pascal

TDragOverEvent = procedure(Sender: TObject; Source: TObject; 
 X: Integer; Y: Integer; State: TDragState; 
 var Accept: Boolean) of object

`Sender`	The possible drop target (control).
`Source`	The object (TDragObject or TControl) being dragged.
`X`	X coordinate of the mouse on screen.
`Y`	Y coordinate of the mouse on screen.
`State`	The current DragState (entering, leaving or moving over the target).
`Accept`	Set Accept to False to reject an drop (default is True).

An OnDragOver event is sent by a control, when an object is dragged over it. The handler can specify whether a drop will be accepted or rejected.

Source is polymorphic, can be either the DragObject or the dragged control! This depends on DragObject.AutoCreated, for no sane reason.