本实例制作一个可以自动滚动的工具栏
在窗体中添加一个TImageList组件并且为它添加几个图像文件然后添加一个TToolBar组件设置TToolBar组件的Images属性为TImageList组件在TToolBar组件上右击在弹出的快捷菜单中选择New Button项为TToolBar组件添加几个按钮并设置按钮的ImageIndex属性分别对应TImageList组件中的图像索引编号最后向窗体上添加一个TPageScroller组件设置它的AutoScroll属性值为True设置Control属性为TToolBar组件如果TToolBar组件的尺寸大于TPageScroller组件的尺寸就会显示一个按钮
设计完成的窗体如图所示
图 主界面保存文件然后按F键运行程序程序运行的初始画面如图所示
在程序运行的过程中鼠标移动到或按钮上时工具栏就会自动滚动以显示工具栏的其他部分如图所示
图 程序运行的初始画面图 程序运行结果如果设置TPageScroller组件的AutoScroll属性值为False那么在程序运行的过程中只有单击或按钮时工具栏才会自动滚动以显示工具栏的其他部分
