我在主窗口上Dock了四个子窗口，他们在主窗口上是垂直排列的，如何写程序调整他们的位置

Question

TDragDockObject有一个DropAlign属性，帮助中的说明是：
Value MeaningalNone The control remains where it was placed. This is the default value.
alTop The control moves to the top of its parent and resizes to fill the width of its parent. The height of the control is not affected.
alBottom The control moves to the bottom of its parent and resizes to fill the width of its parent. The height of the control is not affected.
alLeft The control moves to the left side of its parent and resizes to fill the height of its parent. The width of the control is not affected.alRight The control moves to the right side of its parent and resizes to fill the height of its parent. The width of the control is not affected.
alClient The control resizes to fill the client area of its parent. If another control already occupies part of the client area, the control resizes to fit within the remaining client area. 
alCustom The control抯 positioning is determined by calls to

Answer 1

TControl有这个方法，其中的ControlSide参数应该可以吧function ManualDock(NewDockSite: TWinControl; DropControl: TControl = nil; ControlSide: TAlign = alNone): Boolean;