TControl.DragOver procedure

Member of TControlprotectedIn unit Controls

Called when an object is dragged over this control; Determines whether a drop is acceptable, using the OnDragOver handler.

Declaration

pascal

procedure DragOver(Source: TObject; X: Integer; Y: Integer; 
 State: TDragState; var Accept: Boolean); virtual

`Source`	The dragged object, a control or a DragObject.
`X`	The horizontal mouse position in client coordinates.
`Y`	The vertical mouse position in client coordinates.
`State`	State change flag (dsDragEnter, dsDragMove, dsDragLeave).
`Accept`	Set to True when a drop is allowed.

An OnDragOver handler is required, or any drop will be rejected (Accept becomes False).

When an OnDragOver handler is installed, Accept is set to True and can be changed by the handler.

Source can be either a TDragObject, or the dragged control.