[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'Controls' (#lcl)

# TDragObject

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

TDragObject - the base class for many objects that are designed to be dragged and dropped

## Declaration

Source position: controls.pp line 335

`type TDragObject = class`
`protected`
`procedure EndDrag(); virtual;` |  | EndDrag - method for terminating drag of nominated object at specified location
`function GetDragImages; virtual;` |  | GetDragImages - returns a list of images for dragging
`function GetDragCursor(); virtual;` |  | GetDragCursor - returns the cursor for use during dragging
`public`
`constructor Create(); virtual;` |  | Create - constructor fro TDragObject: copies AControl to local variable
`constructor AutoCreate();`
`procedure HideDragImage; virtual;` |  | Procedure for hiding the drag image during movement
`procedure ShowDragImage; virtual;` |  | Procedure for keeping the image visible during movement
`property AlwaysShowDragImages: Boolean; [rw]` |  | Should the image of dragged objects always be shown?
`property AutoCreated: Boolean; [r]` |  | AutoCreated - if True, the drag object is automatically created
`property AutoFree: Boolean; [r]`
`property Control: TControl; [rw]` |  | The control that is to be dragged
`property DragPos: TPoint; [rw]` |  | Find position for this object
`property DragTarget: TControl; [rw]` |  | The control object to which the current object is to be dragged (target)
`property DragTargetPos: TPoint; [rw]` |  | The position of the taget control object to which the currect object is to be dragged
`property Dropped: Boolean; [r]` |  | Has the drag object been dropped yet?
`end;`

## Inheritance

`TDragObject` |  | TDragObject - the base class for many objects that are designed to be dragged and dropped
`TObject`

The latest version of this document can be found at lazarus-ccr.sourceforge.net.