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

# TDragImageList

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

TDragImageList - a list of Images to be dragged

## Declaration

Source position: controls.pp line 274

`type TDragImageList = class(TCustomImageList)`
`protected`
`procedure WSRegisterClass; override;`
`procedure Initialize; override;` |  | Initialize the list of images for dragging
`public`
`function BeginDrag();` |  | BeginDrag - start the drag process; returns True if successful
`function DragLock();` |  | DragLock - returns True if dragging has been locked for the specifies window at given location
`function DragMove();` |  | DragMove - move dragged images to specified location and return True if successful
`procedure DragUnlock;` |  | DragUnlock - unlock the list of images for dragging
`function EndDrag;` |  | EndDrag - retuns True if the drag process has ended
`function GetHotSpot; override;` |  | GetHotSpot - returns the co-ordinates for the hotspot of the drag image
`procedure HideDragImage;` |  | HideDragImage - method for making dragged image invisible
`function SetDragImage();` |  | SetDragImage - place the indexed drag image at the specified location, returning True if successful
`procedure ShowDragImage;` |  | ShowDragImage - display the dragged image
`property DragCursor: TCursor; [rw]` |  | DragCursor - the cursor for use during the dragging process
`property DragHotspot: TPoint; [rw]` |  | DragHotspot - the position of the HotSpot (usually the pointer of the cursor)
`property Dragging: Boolean; [r]` |  | Dragging - True if dragging is proceeding
`end;`

## Inheritance

`TDragImageList` |  | TDragImageList - a list of Images to be dragged
`TCustomImageList`
?
`TObject`

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