如何制作可随处拖放的工具栏_Delphi

　　在我们经常使用的软件，比如photoshop，office，Delphi等等，我们经常可以对工具栏进行拖拽操作—-将相关的工具栏拖拉出来，形成独立的小窗口；或者将几个工具栏进行互相的组合！（这些就是我们常说的DOCK功能）.

　　其实，利用DELPHI或是其它的可视化编程工具（如c++ builder等）很容易实现上面的功能！下面，我们通过一个小例子来看看它是如何实现的，这里使用的编程工具为Delphi！

　　开始实例前，先要说明些东东！（讲些废话先^_^）

　　可视化的VCL元件皆支持DOCK功能！

http://www.gaodaima.com/65627.html如何制作可随处拖放的工具栏_Delphi

　　在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进行到底吧！小生水平有限，如有不对之处，请各位网友指出！谢谢！ [email protected]  

欢迎大家阅读《如何制作可随处拖放的工具栏_Delphi》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

喜欢 (0)赏

[搞代码]

分享 (0)