Unit 'Controls'	Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index]	[#lcl]

TDragOverEvent

The type of an OnDragOver handler.

Declaration

Source position: controls.pp line 475

type TDragOverEvent = procedure(

Sender: TObject;

Source: TObject;

X: Integer;

Y: Integer;

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.

Remark:

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