Delphi4除了繼承先前版本強大的面向?qū)ο蟮墓δ芡�，而且引入了十幾項新技術(shù)、新特征。Docking 就是其中的一項，有人將Docking譯為對接、入塢、結(jié)合等，也可以譯為“窗口融合技術(shù)”。那么什么是窗口融合技術(shù)呢？窗口融合是一項先進的界面設(shè)計技術(shù)，體現(xiàn)了當(dāng)今的發(fā)展趨勢。Word97的浮動工具欄就是一種窗口融合技術(shù)，有時也稱為Word97風(fēng)格的浮動工具欄。下面針對目前比較流行的窗口與窗口的融合例程來進行：

　　經(jīng)過筆者一段時間的使用，發(fā)現(xiàn)Panel控件最適合作兩個窗口融合的工具。由于這是最一般的情況，所以這里舉一個具有代表性的例子詳細(xì)說明。我們要達(dá)到的要求是：程序運行后，出現(xiàn)主窗口，按一個按鈕，出現(xiàn)另一個窗口，拖動此窗口，與主窗口融合在一起，融合后主窗口的Caption變成兩個窗口的Caption相加。在主窗口form1中放置兩個Panel控件(panel1和panel2)，一個Button控件(button1)；另一個窗口form2為空白窗口。具體屬性設(shè)置如下：

　　panel1：

　　align：alleft；

　　docksite：true；

　　usedockmanager：true；

　　panel2：

　　align：albottom；

　　docksite：true；

　　usemanager：true；

　　form2：

　　anchors：[aktop，akbottom，akleft，akright]；

　　dragmode：dmautomatic；

　　dragkind：dkdock；

　　設(shè)置button1的onclick事件，對應(yīng)的代碼如下：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　form2.Show;

　　a:=form1.caption;

　　b:=form2.caption;

　　end;

　　設(shè)置panel1和panel2的onundock事件，代碼如下：

　　procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);

　　begin

　　form1.caption:=a;

　　form1.Refresh;

　　end;

　　設(shè)置panel1和panel2的ondockdrop事件，代碼如下：

　　procedure TForm1.Panel1DockDrop(Sender:TObject; Source: TDragDockObject; X, Y: Integer);

　　begin

　　form1.Caption:=a＋′,′＋b;

　　form1.Refresh；

　　end;

　　其中a，b為String型變量，用以保存窗口的最初標(biāo)題，在form1的接口處聲明。