|
在我們經常使用的軟件，比如photoshop，office，delphi等等，我們經常可以對工具欄進行拖拽操作----將相關的工具欄拖拉出來，形成獨立的小窗口；或者將幾個工具欄進行互相的組合！（這些就是我們常說的DOCK功能）.
其實，利用DELPHI或是其它的可視化編程工具（如c++ builder等）很容易實現上面的功能！下面，我們通過一個小例子來看看它是如何實現的，這里使用的編程工具為Delphi！
開始實例前，先要說明些東東！（講些廢話先^_^）
可視化的VCL元件皆支持DOCK功能！
在delphi中，所有繼承自Tcontrol及TWinControl的VCL元件，都支持dock功能。
基本上，要進行dock動作至少需要兩個元件，一個是被附著的dock site元件，另一個是附著在dock site的元件。DELPHI所提供的可視化元件中只有繼承自TWinControl的VCL元件才具有dock site的功能，而只要是繼承自Tcontrol的VCL元件則都具有附著在dock site的功能。
* 如果你希望某個繼承自TWinControl的元件具有dock site的功能，只要把該元件的屬性DockSite設成true即可；
* 若是要把某個繼承自TControl的元件附著在dock site上，只要把屬性Drag kind設成dkDock、屬性DragMode設成dmAutomatic即可，
當程序執行后，你就可以利用鼠標把后者元件拖拉到前者元件上，進行dock動作。至于dock的實際動作都被封裝在元件內，用戶根本不用管這些動作是如何進行的。
馬上開始我們的實例！
新建一個普通的工程（project1），從win32控件頁中拖拉一個CoolBar，一個ToolBar，一個ImageList到form1窗體中，屬性設置如下：
Form1
.Caption: 實例一DOCK功能的實現；
CoolBar1（被附著的dock site元件）
.AutoSize: true;
.DockSite: true;
為了一些更好的效果，你可以對BorderWidth，EdgeBorders，EdgeInner， EdgeOuter，進行相關的設置！
ToolBar1（附著在dock site的元件）
在ToolBar1元件上點擊右鍵，選擇New Button，新建一些按鈕，它們之間可以通過New Separator，進行相關組的分隔！
.Caption: 工具欄（獨立出來時窗口顯示的標題）
.AutoSize: true；
.DockKind: dkDock；
.DragMode: dmAutomatic；
.Flat: ture；（這樣好看些）
.Images: ImageList1；
同樣為了一些更好的效果，你可以對BorderWidth，EdgeBorders，EdgeInner， EdgeOuter，進行相關的設置！
ImageList1，
雙擊該控件，選擇Add…，添加幾幅圖片。這樣，可以很方便地將這些圖片賦于ToolBar中的Button！
點擊運行按鈕，你拖拽下你的工具欄，是不是馬上就可以看到效果啦？我們還沒有編寫一行代碼呢？？？？這就是Delphi的強大之處！
為了更好地進行拖拽操作，我們添加下面幾行代碼！（主要是CoolBar1的onDragOver、onDockDrop和UnDock事件）；
unit sample1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ImgList, ComCtrls, ToolWin;
type
TForm1 = class(TForm)
ImageList1: TImageList;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
procedure CoolBar1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure CoolBar1DockDrop(Sender: TObject; Source: TDragDockObject; X,
Y: Integer);
procedure CoolBar1UnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
procedure ToolButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.CoolBar1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=(source=ToolBar1); //指定接受拖拽操作的條件是拖拽對象為ToolBar1;
end;
procedure TForm1.CoolBar1DockDrop(Sender: TObject; Source: TDragDockObject;
X, Y: Integer);
begin
ToolBar1.AutoSize:=false; //當元件拖到dock site元件上面，并且放開鼠標左鍵之后，此事件就會被執行
ToolBar1.Align:=altop; //為了便于拖拽，將toolbar1的寬度與coolbar1相近.
ToolBar1.Width:=CoolBar1.Width-1;
end;
procedure TForm1.CoolBar1UnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
begin
ToolBar1.AutoSize:=true; //當元件一拖離dock site元件時，此事就會被執行
ToolBar1.Caption:='工具欄'; //設定獨立工具欄窗口的大小和標題
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Close; //退出程序
end;
end.
下面列出與DOCK功能有關的事件：
OnDragDrop: 當元件被拖動時，此事件被執行；
OnDragOver: 用于指定元件可以被拖動的條件；
OnDockDrop: 當元件拖到dock site元件上面，并且放開鼠標左鍵之后，此事件就會被執行；
OnDockOver：當元件一拖到dock site元件上，此事件就會被執行；
OnUnDock：當元件一拖離dock site元件時，此事就會被執行；
OnGetSiteInfo：取得dock site元件的一些信息。
好了，通過一個小小的拖放工具欄的例子，我們馬上就可以體會到Delphi的易用與強大之處！以后我會繼續寫一些關于用Delphi進行實例編程的文章！各位Delphi愛好者，大家將Delphi進行到底吧！小生水平有限，如有不對之處，請各位網友指出！謝謝！ aatun@163.net
|
