Delphi中?？考夹g的實現：

隨著軟件技術的不斷進步，軟件界面也越來越美觀，操作也越來越方便。

綜觀市面上比較專業的各種軟件，我們會發現大部分都提供窗體?？康墓δ?，特別象工具軟件，基本上都或多或少有停靠功能。

自然，Delphi也支持?？浚宜蚔CL緊密結合，對于廣大的Delphi程序員來說更是一大福音。讓我們省去枯燥的編碼時間。把注意力集中在核心程序的構思上。

先讓我們來復習一下VCL的結構，在TWinControl類中有一個DockSite屬性(boolean),它的作用是是否允許別的控件?？吭谒纳厦?，在TControl類中有一個DragKind屬性，如果要這個控件能?？吭趧e的控件上，就把DragKind屬性設成dkDock。就這么簡單，只要設置一下屬性，一個支持?？康某绦蚓屯瓿闪恕?br />
當然，上面說的只是最最基本的步驟，有了以上兩步，我們就可以繼續編寫代碼實現更復雜的功能。

一般的支持?？康某绦蚨伎梢栽谥鞔翱诘纳舷伦笥彝？?，也就是說在主窗口的邊上放上能被停靠的控件比較好(只要是從TWinControl繼承的都行)，一般我們都選擇TPanel，為了便于讀者理解，我們可以假定主窗口的左邊可以?？浚栽谥鞔翱谏戏乓粋€Align屬性為alLeft的Panel，取名為LeftDockPanel，寬度為0，DockSite屬性為True，當然我們的LeftDockPanel應該是可以改變大小的，所以在它右邊再放一個TSplitter，取名為LeftSplitter，Align屬性為alLeft。接下來就是停靠控件了，一般的程序停靠控件都是窗體，所以我們也建一個窗體，取名叫DockableForm，DragKind屬性設成dkDock，DragMode屬性設為dmAutomatic(自動?？?。

現在我們可以運行這個程序了，什么？效果不好？停靠的窗體?？客？窟M去后就不見了！

哦，我差點忘了，當?？看绑w停靠時Delphi會產生一些事件，他們分別是

1．OnDockOver(Sender: TObject; Source: TDragDockObject;

X, Y: Integer; State: TDragState; var Accept: Boolean);

2．OnDockDrop(Sender: TObject; Source: TDragDockObject;

X, Y: Integer);

3．OnGetSiteInfo(Sender: TObject; DockClient: TControl;

var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);

4．OnStartDock(Sender: TObject;

var DragObject: TDragDockObject);

5．OnEndDock(Sender, Target: TObject; X, Y: Integer);

6．OnUnDock(Sender: TObject; Client: TControl;

NewTarget: TWinControl; var Allow: Boolean);

哇，這么多，別急，讓我細細道來：

先讓我們來看看第一個事件

OnDockOver是在停靠控件(DockableForm)掠過被?？靠丶?LeftDockPanel)時觸發的。Source包含了停靠—拖動操作的信息，其中有一個重要的屬性是Control，就是DockableForm，另一個重要的屬性是DockRect，就是?？康奈恢茫籜,Y是鼠標的位置，State的狀態有dsDragEnter, dsDragLeave, dsDragMove，分別表示拖動進入，拖動離開，拖動移動；Accept是是否同意停靠的意思。OnDockOver事件主要作用是控制停靠窗體的預覽位置，下面我們來加入以下代碼：