如何制作可随处拖放的工具栏_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进行到底吧!小生水平有限,如有不对之处,请各位网友指出!谢谢! aatun@163.net  

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

原创文章,转载请注明: 转载自搞代码

本文链接地址: 如何制作可随处拖放的工具栏_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注