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

王朝delphi·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

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

在窗体中添加一个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,那么在程序运行的过程中,只有单击或按钮时,工具栏才会自动滚动以显示工具栏的其他部分。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航