TWinControl.DockOver procedure

Member of TWinControlprotectedIn unit Controls

Called to check whether this control allows docking and where.

Declaration

pascal

procedure DockOver(Source: TDragDockObject; X: Integer; Y: Integer; 
 State: TDragState; var Accept: Boolean); virtual

`Source`
`X`
`Y`
`State`
`Accept`	Initially True, set to False to reject an drop.

Called for messages from the DragManager including: dmEnter, dmLeave, and dmMove. Gets the DockRect to show.

Positions the DockRect, and invokes OnDockOver (via DoDockOver).

Everything can be overridden using the OnDockOver handler, when assigned.