关于controlbar(200分)

做了个小程序,觉得界面不生动,想参考ACDSEE中的方式,几个显示模块都可以拖拽变
成浮动的,估计是将toolbar,panel的放在controlbar 里,可没有头绪,哪位仁兄赐教?

将toolbar放在ControlBar中，并且设置ControlBar的DockSite为True,设置toolbar的
DragKind 为dkDock,DragMode为dmAutomatic

ControlBar总觉得有些问题，好象很难控制，我一直没敢用它。

paste 一边文章，如果是需要dock技术的话

　　panel1：
　　align：alleft；
　　docksite：true；
　　usedockmanager：true；
　　panel2：
　　align：albottom；
　　docksite：true；
　　usemanager：true；
　　form2：
　　anchors：[aktop，akbottom，akleft，akright]；
　　dragmode：dmautomatic；
　　dragkind：dkdock；
　　设置button1的onclick事件，对应的代码如下：
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　form2.Show;
　　a:=form1.caption;
　　b:=form2.caption;
　　end;
　　设置panel1和panel2的onundock事件，代码如下：
　　procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);

　　begin
　　form1.caption:=a;
　　form1.Refresh;
　　end;
　　设置panel1和panel2的ondockdrop事件，代码如下：
　　procedure TForm1.Panel1DockDrop(Sender:TObject; Source: TDragDockObject; X, Y: Integer);
　　begin
　　form1.Caption:=a＋′,′＋b;
　　form1.Refresh；
　　end;
　　其中a，b为String型变量，用以保存窗口的最初标题，在form1的接口处声明。

input toolbar into coolbar,set their properties: DockSite, DragKind, DragMode

如何让和TOOLBAR 和PANEL 上出现小叉(CANCEL)

用DevExpressBar吧，够好用，男儿有志当凌云上有得下

多人接受答案了。