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

TDragControlObject.GetDragCursor

Asks the Control to provide a drag cursor.

Declaration

Source position: controls.pp line 530

protected function TDragControlObject.GetDragCursor(

Accepted: Boolean;

X: Integer;

Y: Integer

):TCursor; override;

`Accepted`		True when the dragged object can be dropped at the specified position.
`X`		Horizontal coordinate for the mouse pointer.
`Y`		Vertical coordinate for the mouse pointer.

TCursor shape used as the drag cursor. crDrag when Accepted. crNoDrop when not Accepted.

Called when a TDragPerformer repositions the the mouse pointer during an active drag operation.