delphi 侧边栏_Delphi 停靠技术的应用1（在一个窗体中停靠另一个窗体）

一、基础知识介绍

1、VCL组件的基础知识

在TWinControl类中有一个DockSite属性(boolean),它的作用是是否允许别的控件停靠在它的上面；在TControl类中有一个DragKind属性，如果要这个控件能停靠在别的控件上，就把DragKind属性设成dkDock。就这么简单，只要设置一下属性，一个支持停靠的程序就完成了。当然，上面说的只是最最基本的步骤，有了以上两步，我们就可以继续编写代码实现更复杂的功能。

2、停靠操作常用的属性

1>．TControl. TBDockHeight　　　  　// 停靠控件在停靠时的的高度；

2>．TControl. LRDockWidth　　　  　 // 停靠控件在停靠时的的宽度；

3>．TControl. UnDockHeight　　　  　// 停靠控件在浮动时的的高度；

4>．TControl. UnDockWidth　　　  　 // 停靠控件在浮动时的的宽度；

5>．TControl. HostDockSite　　　  　// 被停靠控件的实例；

6>．TControl. FloatingDockSiteClass　// 为停靠控件在浮动时创建容器(自动装载)；

7>．TControl. Floating　　　　　　　// 是否浮动

9>．TControl. DockOrientation　　　 // 停靠控件的方位

10>．TWinControl .DockClientCount　 // 被停靠控件里面有几个已经停靠的控件

11