Vcl.Controls.TDragControlObject.GetDragCursor

• Up to Parent: TDragControlObject

Delphi

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

C++

virtual System::Uitypes::TCursor __fastcall GetDragCursor(bool Accepted, int X, int Y);

Properties

Type	Visibility	Source	Unit	Parent
function	protected	Vcl.Controls.pas Vcl.Controls.hpp	Vcl.Controls	TDragControlObject

Description

Returns the correct drag cursor to display at the X, Y position for the drag-and-drop operation.

If the control at the X, Y position accepts the drag (in an OnDragOver event handler), the drag object sets the drag cursor to the control's DragCursor property; otherwise, it displays the crNoDrop cursor.

See Also

• DragCursor

• OnDragOver