为Delphi程序添加自动滚动的工具栏

本实例制作一个可以自动滚动的工具栏。

　　在窗体中添加一个TImageList组件，并且为它添加几个图像文件。然后添加一个TToolBar组件，设置TToolBar组件的Images属性为TImageList组件，在TToolBar组件上右击，在弹出的快捷菜单中选择New Button项，为TToolBar组件添加几个按钮，并设置按钮的ImageIndex属性分别对应TImageList组件中的图像索引编号。最后向窗体上添加一个TPageScroller组件，设置它的AutoScroll属性值为True，设置Control属性为TToolBar组件，如果TToolBar组件的尺寸大于TPageScroller组件的尺寸，就会显示一个按钮。

　　设计完成的窗体如图1所示。

图1 主界面

　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。

　　在程序运行的过程中，鼠标移动到或按钮上时工具栏就会自动滚动以显示工具栏的其他部分，如图3所示。

图2 程序运行的初始画面

图3 程序运行结果

　　如果设置TPageScroller组件的AutoScroll属性值为False，那么在程序运行的过程中，只有单击或按钮时，工具栏才会自动滚动以显示工具栏的其他部分。

查看本文来源