the DoDock procedure in Delphi's TControl class.
procedure TControl.DoDock(NewDockSite: TWinControl; var ARect: TRect);
begin
  inherited DoDock(NewDockSite, ARect);  // Call the inherited method first

  // Custom docking behavior can be implemented here

  // Example: Adjust the docking rectangle
  ARect.Right := ARect.Left + Width;
for more:https://dz-linkk.com/zH14y8