TDragControlObject.GetDragCursor function
Asks the Control to provide a drag cursor.
Declaration
function GetDragCursor(Accepted: Boolean; X: Integer; Y: Integer)
: TCursor; overrideArguments
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. |
Function result
TCursor shape used as the drag cursor. crDrag when Accepted. crNoDrop when not Accepted.
Description
Called when a TDragPerformer repositions the mouse pointer during an active drag operation.
See also
An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.