下载之家:专注下载8年,极速安全,用心打造!

下载之家首页 |最新软件 |软件排行 |软件专题

您当前所在位置: 下载之家 >  资讯 >  PC软件资讯 >  为Delphi程序添加自动滚动的工具栏

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

时间:2011/04/30 03:45:02来源:本站整理作者:佚名

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

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

 

 

为Delphi程序添加自动滚动的工具栏
图1 主界面

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

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

 

 

为Delphi程序添加自动滚动的工具栏
图2 程序运行的初始画面

 

为Delphi程序添加自动滚动的工具栏
图3 程序运行结果

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

更多0

相关阅读 升级win10后发现C盘爆满应该如何解决?解决win10C盘爆满方法 微软推送Win10 Build 14942 更新内容一览 win10商店购买应用提示“请稍后重试”解决方法 二次元萌萌哒微信头像 呆萌的小僵尸系列 阳光帅气男生抱猫微信头像 抱猫的男生好温柔 小黄脸变形微信表情包 XX到变形 新版Chrome浏览器不再支持Windows XP等旧操作系统 Win10升级失败出现错误代码0xC0000001怎么办?