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

这个例子制作了一个可以自动滚动的工具栏。

向表单中添加一个TImageList组件，并向其中添加几个图像文件。然后添加一个TToolBar组件，将TToolBar组件的Images属性设置为imagelist组件，右键单击TToolBar组件，在弹出的快捷菜单中选择New Button项，在TToolBar组件中添加几个按钮，将按钮的ImageIndex属性设置为分别对应imagelist组件中的图像索引号。最后，向表单添加一个TPageScroller组件，将其AutoScroll属性值设置为True，并将其Control属性设置为TToolBar组件。如果TToolBar组件的大小大于TPageScroller组件的大小，则会显示一个按钮。

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

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

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