Delphi中停靠技術(shù)的實(shí)現(xiàn)：

隨著軟件技術(shù)的不斷進(jìn)步，軟件界面也越來(lái)越美觀，操作也越來(lái)越方便。

綜觀市面上比較專業(yè)的各種軟件，我們會(huì)發(fā)現(xiàn)大部分都提供窗體?？康墓δ埽貏e象工具軟件，基本上都或多或少有停靠功能。

自然，Delphi也支持?？?，而且她和VCL緊密結(jié)合，對(duì)于廣大的Delphi程序員來(lái)說(shuō)更是一大福音。讓我們省去枯燥的編碼時(shí)間。把注意力集中在核心程序的構(gòu)思上。

先讓我們來(lái)復(fù)習(xí)一下VCL的結(jié)構(gòu)，在TWinControl類中有一個(gè)DockSite屬性(boolean),它的作用是是否允許別的控件?？吭谒纳厦?，在TControl類中有一個(gè)DragKind屬性，如果要這個(gè)控件能?？吭趧e的控件上，就把DragKind屬性設(shè)成dkDock。就這么簡(jiǎn)單，只要設(shè)置一下屬性，一個(gè)支持停靠的程序就完成了。

當(dāng)然，上面說(shuō)的只是最最基本的步驟，有了以上兩步，我們就可以繼續(xù)編寫代碼實(shí)現(xiàn)更復(fù)雜的功能。

一般的支持?？康某绦蚨伎梢栽谥鞔翱诘纳舷伦笥彝？?，也就是說(shuō)在主窗口的邊上放上能被停靠的控件比較好(只要是從TWinControl繼承的都行)，一般我們都選擇TPanel，為了便于讀者理解，我們可以假定主窗口的左邊可以?？?，所以在主窗口上放一個(gè)Align屬性為alLeft的Panel，取名為L(zhǎng)eftDockPanel，寬度為0，DockSite屬性為True，當(dāng)然我們的LeftDockPanel應(yīng)該是可以改變大小的，所以在它右邊再放一個(gè)TSplitter，取名為L(zhǎng)eftSplitter，Align屬性為alLeft。接下來(lái)就是?？靠丶耍话愕某绦蛲？靠丶际谴绑w，所以我們也建一個(gè)窗體，取名叫DockableForm，DragKind屬性設(shè)成dkDock，DragMode屬性設(shè)為dmAutomatic(自動(dòng)?？?。

現(xiàn)在我們可以運(yùn)行這個(gè)程序了，什么？效果不好？?？康拇绑w?？客？窟M(jìn)去后就不見(jiàn)了！

哦，我差點(diǎn)忘了，當(dāng)?？看绑w?？繒r(shí)Delphi會(huì)產(chǎn)生一些事件，他們分別是

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);

哇，這么多，別急，讓我細(xì)細(xì)道來(lái)：

先讓我們來(lái)看看第一個(gè)事件

OnDockOver是在?？靠丶?DockableForm)掠過(guò)被?？靠丶?LeftDockPanel)時(shí)觸發(fā)的。Source包含了?？?mdash;拖動(dòng)操作的信息，其中有一個(gè)重要的屬性是Control，就是DockableForm，另一個(gè)重要的屬性是DockRect，就是停靠的位置；X,Y是鼠標(biāo)的位置，State的狀態(tài)有dsDragEnter, dsDragLeave, dsDragMove，分別表示拖動(dòng)進(jìn)入，拖動(dòng)離開，拖動(dòng)移動(dòng)；Accept是是否同意停靠的意思。OnDockOver事件主要作用是控制停靠窗體的預(yù)覽位置，下面我們來(lái)加入以下代碼：