TDragObject.GetDragCursor function

Member of TDragObjectprotectedIn unit Controls

Returns the dragging cursor type (shape).

Declaration

pascal

function GetDragCursor(Accepted: Boolean; X: Integer; Y: Integer)
: TCursor; virtual

`Accepted`	Which cursor to return (rejected: crNoDrop or accepted: crDrag).
`X`	Horizontal coordinate for the drag cursor.
`Y`	Vertical coordinate for the drag cursor.

The cursor to show.

In drag-drop operations the cursor signals acceptance or rejection of an drop, depending on Accepted.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.