为Delphi程序添加自动滚动的工具栏
2008-02-23 07:14:50来源：互联网 阅读 ()
本实例制作一个可以自动滚动的工具栏。 在窗体中添加一个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，那么在程序运行的过程中，只有单击或按钮时，工具栏才会自动滚动以显示工具栏的其他部分。
上一篇： Delphi的Hint入门指导
下一篇： 拯救Delphi:中国开源社区展示力量的一次绝佳机会
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
