TDragManager.DragStart procedure

Starts a drag operation for a control.

Declaration

pascal

procedure DragStart(AControl: TControl; AImmediate: Boolean; 
 AThreshold: Integer; 
 StartFromCurrentMouse: Boolean=False); virtual
 ; abstract

`AControl`	The control that initiates the drag operation.
`AImmediate`	False when dragging should start only when the mouse is moved (delayed).
`AThreshold`	How much the mouse must move before delayed dragging starts.
`StartFromCurrentMouse`

A DragObject must be created, depending on the Control.DragKind. The mouse has to be captured, and visual feedback must be initialized.

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