TDragDockObject

type TDragDockObject = class(TDragObject)

protected

  procedure AdjustDockRect(); virtual;

Adjust the DockRect relative to the dragging hotspot (DockOffset).

  function GetDragCursor(); override;

Returns the dragging cursor type.

  procedure EndDrag(); override;

Called when a dragging operation ends.

  procedure InitDock(); virtual;

Initializes the dragging coordinates.

  procedure ShowDockImage; virtual;

Shows the DockRect, remembers the coordinates in EraseDockRect

  procedure HideDockImage; virtual;

Hides the DockRect, invalidates EraseDockRect to prevent further erases.

  procedure MoveDockImage; virtual;

Moves an already visible DockRect.

public

  property DockOffset: TPoint; [rw]

The hotspot offset of the dragged DockRect.

  property DockRect: TRect; [rw]

Screen coordinates of a possible drop location.

  property DropAlign: TAlign; [rw]

How the dragged control will be docked, relative to the target control.

  property DropOnControl: TControl; [rw]

The control to which the dragged control will be docked.

  property Floating: Boolean; [rw]

The final state of the dragged control (after drop).

  property IncreaseDockArea: Boolean; [r]

Determines whether the dock site shall be enlarged.

  property EraseDockRect: TRect; [rw]

The currently visible DockRect, to be removed later.

end;

TDragDockObject

TDragObject

Base class for managing drag operations and feedback.

TObject