1.ControlBar控件的使用
TControlBar作一个工具栏风格的可以自动停靠的菜单。
在窗体中添加一个TMainMenu组件,并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件,设置它的Align属性值为alTop。最后选中TControlBar组件,然后在组件工具栏中双击TToolBar组件,这样就会把TToolBar组件添加到TControlBar组件上,通过这样的方法向TControlBar上添加两个TToolBar组件,设置TToolBar组件的Menu属性为TMainMenu组件。
在窗体中添加一个TMainMenu组件,并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件,设置它的Align属性值为alTop。最后选中TControlBar组件,然后在组件工具栏中双击TToolBar组件,这样就会把TToolBar组件添加到TControlBar组件上,通过这样的方法向TControlBar上添加两个TToolBar组件,设置TToolBar组件的Menu属性为TMainMenu组件。
2. CoolBar控件的使用
例1
1)拖放一个 CoolBar 控件,建立 Band 带条。
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就制作完成了