Delphi ControlBar Coolbar的使用

1.ControlBar控件的使用

TControlBar作一个工具栏风格的可以自动停靠的菜单。 
　　在窗体中添加一个TMainMenu组件，并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件，设置它的Align属性值为alTop。最后选中TControlBar组件，然后在组件工具栏中双击TToolBar组件，这样就会把TToolBar组件添加到TControlBar组件上，通过这样的方法向TControlBar上添加两个TToolBar组件，设置TToolBar组件的Menu属性为TMainMenu组件。

2. CoolBar控件的使用

例1
1)拖放一个 CoolBar 控件，建立 Band 带条。

2)拖放 ToolBar 控件，会自动停靠在 CoolBar 中，但是不在 Band 里。

3)拖放 Menu 控件，建立菜单项(Item)。把 Menu 控件的 AutoMerge 属性设置为 True。AutoMerge 设置为 True 表示菜单即将和 ToolBar 自动合并在一起，就不会在窗口顶部同时显示 2 个菜单条了。真正的菜单条会自动隐藏起来，发挥作用的是 ToolBar 上的菜单条。

4)设置 ToolBar 的 Menu 属性为以上建立的 Menu 控件。这就把 Menu 控件和 ToolBar 联系了起来。这时会在 ToolBar 里显示菜单条。

5)设置 CoolBar 中 Bandx 的 Control 属性为 ToolBar，就把 ToolBar 装入到 CoolBar 的 Bandx 中。

6) 配置完毕后，CoolBar 里的各个 Band 可以用鼠标拖动移动位置，显示了其灵活性。

例2

1.首先规划好你的coolbar的结构，如背景图像、分几层、各个层次分别放置何种对象等。本例中第1、2层分别放置两个toolbar对象，第3层放置一个edit对象。

　　2.新建一个工程，在窗体中放置一个coolbar1对象，切换到属性窗口，单击属性bitmap栏的省略号小按钮，设置coolbar1的背景图像。

　　3.用右键单击窗体中的coolbar1对象，在弹出的快速菜单中选择“bands editor”菜单项，激活“editing coolbar1.bands”窗口，单击add按钮，增加3个tcoolband，在属性窗口中显示的名称分别为coolbar1.bands[0]、coolbar1.bands[1]、coolbar1.bands[2]。

　　4.选择coolbar.bands[2]，在左侧属性窗口中修改text属性为email。text属性指定了该tcoolband的标题内容。请注意，字符串email后跟了两个空格，以便和将要设置的edit1对象分开一定距离。由于第1、2个tcoolband中放置的是toolbar，所以可设置其标题内容为空。

　　5.按常规在窗体上增加两个工具条对象toolbar1、toolbar2，并增加各自的按钮及图像，修改它们的属性align为altop,属性autosize为true,属性edgeborders为[]，即没有边框线，属性wrapable为false。设置属性wrapable为false,可以在把一个tcoolband拖拽到一层进行合并时，保持coolbar高度不变，否则，coolbar的高度将会变大，从而占据屏幕很大一部分。

　　6.在窗体中增加一个edit1对象。

　　7.设置coolbar1.bands[0]的属性control为toolbar1,coolbar1.bands[1]的属性control为toolbar2,coolbar1.bands[2]的属性edit1。

　　8.设置coolbar1的属性autosize为true。

　　这样，一个简单coolbar就制作完成了

摘自：http://anony3721.blog.163.com/blog/static/51197420108810192660/

效果图：