| 订阅 | 在线投稿
分享
 
 
 

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

来源:互联网网民  宽屏版  评论
2006-12-16 17:29:04

本文为【为Delphi程序添加自动滚动的工具栏】的汉字拼音对照版显示拼音

benshilizhizuoyigekeyizidonggundongdegongjulan

zaichuangtizhongtianjiayigeTImageListzujianbingqieweitatianjiajigetuxiangwenjianranhoutianjiayigeTToolBarzujianshezhiTToolBarzujiandeImagesshuxingweiTImageListzujianzaiTToolBarzujianshangyoujizaitanchudekuaijiecaidanzhongxuanzeNew ButtonxiangweiTToolBarzujiantianjiajigeanniubingshezhianniudeImageIndexshuxingfenbieduiyingTImageListzujianzhongdetuxiangsuoyinbianhaozuihouxiangchuangtishangtianjiayigeTPageScrollerzujianshezhitadeAutoScrollshuxingzhiweiTrueshezhiControlshuxingweiTToolBarzujianruguoTToolBarzujiandechicundayuTPageScrollerzujiandechicunjiuhuixianshiyigeanniu

shejiwanchengdechuangtirutu1suoshi


王朝网络

tu1 zhujiemian

baocunwenjianranhouanF9jianyunxingchengxuchengxuyunxingdechushihuamianrutu2suoshi

zaichengxuyunxingdeguochengzhongshubiaoyidongdaohuoanniushangshigongjulanjiuhuizidonggundongyixianshigongjulandeqitabufenrutu3suoshi


王朝网络

tu2 chengxuyunxingdechushihuamian

王朝网络

tu3 chengxuyunxingjieguo

ruguoshezhiTPageScrollerzujiandeAutoScrollshuxingzhiweiFalsenamezaichengxuyunxingdeguochengzhongzhiyoudanjihuoanniushigongjulancaihuizidonggundongyixianshigongjulandeqitabufen

原文
 
特别声明:以上内容(如有图片或视频亦包括在内)为网络用户发布,本站仅提供信息存储服务。
 
本实例制作一个可以自动滚动的工具栏。   在窗体中添加一个TImageList组件,并且为它添加几个图像文件。然后添加一个TToolBar组件,设置TToolBar组件的Images属性为TImageList组件,在TToolBar组件上右击,在弹出的快捷菜单中选择New Button项,为TToolBar组件添加几个按钮,并设置按钮的ImageIndex属性分别对应TImageList组件中的图像索引编号。最后向窗体上添加一个TPageScroller组件,设置它的AutoScroll属性值为True,设置Control属性为TToolBar组件,如果TToolBar组件的尺寸大于TPageScroller组件的尺寸,就会显示一个按钮。   设计完成的窗体如图1所示。 [url=http://www.wangchao.net.cn/bbs/hydetail_571352.html][img]http://images.wangchao.net.cn/images/upload/images/1166261344406.jpg[/img][/url] 图1 主界面   保存文件,然后按F9键运行程序,程序运行的初始画面如图2所示。   在程序运行的过程中,鼠标移动到或按钮上时工具栏就会自动滚动以显示工具栏的其他部分,如图3所示。 [url=http://www.wangchao.net.cn/bbs/hydetail_571352.html][img]http://images.wangchao.net.cn/images/upload/images/1166261344468.jpg[/img][/url] 图2 程序运行的初始画面 [url=http://www.wangchao.net.cn/bbs/hydetail_571352.html][img]http://images.wangchao.net.cn/images/upload/images/1166261344515.jpg[/img][/url] 图3 程序运行结果   如果设置TPageScroller组件的AutoScroll属性值为False,那么在程序运行的过程中,只有单击或按钮时,工具栏才会自动滚动以显示工具栏的其他部分。
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有