Unit 'Controls' Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] [#lcl]


Adjusts the control's position and extent for the new docksite.


Source position: controls.pp line 1402

protected procedure TControl.DoDock(

  NewDockSite: TWinControl;

  var ARect: TRect

); virtual;




The site where the control will be docked, or Nil when it becomes floating.



The control's new Bounds, in screen coordinates when NewDockSite is Nil, else in client coordinates of NewDockSite.


DoDock is an Internal method, called by Dock, to performs actions needed when a control is docked to a docksite.

If NewDockSite=Nil, Parent is set to Nil (in preparation of floating the control). Otherwise ARect is ignored, and recomputed to fit approximately into the ClientRect of the NewDockSite.

Finally the computed coordinates are stored, in BoundsRectForNewParent when the NewDockSite differs from Parent, else in BoundsRect.


A correct implementation should allow for computations in a derived class, and accept and handle the changed bounds without any further adjustments.

CT Web help

CodeTyphon Studio