知识大全如何制作可随处拖放的工具栏

Posted 2022-07-21 知

篇首语：真者，精诚之至也，不精不诚，不能动人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何制作可随处拖放的工具栏相关的知识，希望对你有一定的参考价值。

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

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

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

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

　　在delphi中所有继承自Tcontrol及inControl的VCL元件都支持dock功能

　　基本上要进行dock动作至少需要两个元件一个是被附着的dock site元件另一个是附着在dock site的元件 DELPHI所提供的可视化元件中只有继承自inControl的VCL元件才具有dock site的功能而只要是继承自Tcontrol的VCL元件则都具有附着在dock site的功能

　　* 如果你希望某个继承自inControl的元件具有dock site的功能只要把该元件的属性DockSite设成true即可　　* 若是要把某个继承自TControl的元件附着在dock site上只要把属性Drag kind设成dkDock 属性DragMode设成dmAutomatic即可

　　当程序执行后你就可以利用鼠标把后者元件拖拉到前者元件上进行dock动作至于dock的实际动作都被封装在元件内用户根本不用管这些动作是如何进行的

　　马上开始我们的实例！

　　新建一个普通的工程（project ）从win 控件页中拖拉一个CoolBar 一个ToolBar 一个ImageList到form 窗体中属性设置如下

Form 　　 Caption:　实例一DOCK功能的实现　　CoolBar （被附着的dock site元件）　　 AutoSize:　true; 　　 DockSite:　true;　

　　为了一些更好的效果你可以对BorderWidth EdgeBorders EdgeInner EdgeOuter 进行相关的设置！

　　ToolBar （附着在dock site的元件）

　　在ToolBar 元件上点击右键选择New Button 新建一些按钮它们之间可以通过New Separator 进行相关组的分隔！

　 Caption:　工具栏（独立出来时窗口显示的标题）

　 AutoSize:　true

　 DockKind:　dkDock

　 DragMode:　dmAutomatic

　 Flat:　 ture （这样好看些）

　 Images:　ImageList 　

　　同样为了一些更好的效果你可以对BorderWidth EdgeBorders EdgeInner EdgeOuter 进行相关的设置！

　　ImageList 双击该控件选择Add… 添加几幅图片这样可以很方便地将这些图片赋于ToolBar中的Button！

　　点击运行按钮你拖拽下你的工具栏是不是马上就可以看到效果啦？我们还没有编写一行代码呢？？？？这就是Delphi的强大之处！

　　为了更好地进行拖拽操作我们添加下面几行代码！（主要是CoolBar 的onDragOver onDockDrop和UnDock事件）

unit sample ;

interface

usesWindows Messages SysUtils Classes Graphics Controls Forms Dialogs ImgList ComCtrls ToolWin;

typeTForm = class(TForm)ImageList : TImageList;CoolBar : TCoolBar;ToolBar : TToolBar;ToolButton : TToolButton;ToolButton : TToolButton;ToolButton : TToolButton;ToolButton : TToolButton;ToolButton : TToolButton;ToolButton : TToolButton;ToolButton : TToolButton;procedure CoolBar DragOver(Sender Source: TObject; X Y: Integer;State: TDragState; var Accept: Boolean);procedure CoolBar DockDrop(Sender: TObject; Source: TDragDockObject; X Y: Integer);procedure CoolBar UnDock(Sender: TObject; Client: TControl;NewTarget: inControl; var Allow: Boolean);procedure ToolButton Click(Sender: TObject);private Private declarations public Public declarations end;

varForm : TForm ;

implementation

$R * DFM

procedure TForm CoolBar DragOver(Sender Source: TObject; X Y: Integer;State: TDragState; var Accept: Boolean);beginAccept:=(source=ToolBar ); //指定接受拖拽操作的条件是拖拽对象为ToolBar ;end;

procedure TForm CoolBar DockDrop(Sender: TObject; Source: TDragDockObject;X Y: Integer);beginToolBar AutoSize:=false; //当元件拖到dock site元件上面并且放开鼠标左键之后此事件就会被执行ToolBar Align:=altop; //为了便于拖拽将toolbar 的宽度与coolbar 相近 ToolBar Width:=CoolBar Width ;end;

procedure TForm CoolBar UnDock(Sender: TObject; Client: TControl;NewTarget: inControl; var Allow: Boolean);beginToolBar AutoSize:=true; //当元件一拖离dock site元件时此事就会被执行ToolBar Caption:= 工具栏 ; //设定独立工具栏窗口的大小和标题end;

procedure TForm ToolButton Click(Sender: TObject);beginClose; //退出程序end;

end

　　下面列出与DOCK功能有关的事件

　　OnDragDrop: 当元件被拖动时此事件被执行

　　OnDragOver: 用于指定元件可以被拖动的条件

　　OnDockDrop: 当元件拖到dock site元件上面并且放开鼠标左键之后此事件就会被执行

　　OnDockOver 当元件一拖到dock site元件上此事件就会被执行

　　OnUnDock 当元件一拖离dock site元件时此事就会被执行

　　OnGetSiteInfo 取得dock site元件的一些信息

cha138/Article/program/Delphi/201311/25011

知识大全 如何制作可随处拖放的工具栏

知识大全如何制作可随处拖放的工具栏