| 订阅 | 在线投稿

分享

2006-12-16 17:29:04  编辑来源:互联网  国际版  评论

 

 

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

　　本ben实shi例li制zhi作zuo一yi个ge可ke以yi自zi动dong滚gun动dong的de工gong具ju栏lan。

　　在zai窗chuang体ti中zhong添tian加jia一yi个geTImageList组zu件jian，并bing且qie为wei它ta添tian加jia几ji个ge图tu像xiang文wen件jian。然ran后hou添tian加jia一yi个geTToolBar组zu件jian，设she置zhiTToolBar组zu件jian的deImages属shu性xing为weiTImageList组zu件jian，在zaiTToolBar组zu件jian上shang右you击ji，在zai弹tan出chu的de快kuai捷jie菜cai单dan中zhong选xuan择zeNew Button项xiang，为weiTToolBar组zu件jian添tian加jia几ji个ge按an钮niu，并bing设she置zhi按an钮niu的deImageIndex属shu性xing分fen别bie对dui应yingTImageList组zu件jian中zhong的de图tu像xiang索suo引yin编bian号hao。最zui后hou向xiang窗chuang体ti上shang添tian加jia一yi个geTPageScroller组zu件jian，设she置zhi它ta的deAutoScroll属shu性xing值zhi为weiTrue，设she置zhiControl属shu性xing为weiTToolBar组zu件jian，如ru果guoTToolBar组zu件jian的de尺chi寸cun大da于yuTPageScroller组zu件jian的de尺chi寸cun，就jiu会hui显xian示shi一yi个ge按an钮niu。

　　设she计ji完wan成cheng的de窗chuang体ti如ru图tu1所suo示shi。

　　

　　

　　图tu1 主zhu界jie面mian

　　保bao存cun文wen件jian，然ran后hou按anF9键jian运yun行xing程cheng序xu，程cheng序xu运yun行xing的de初chu始shi画hua面mian如ru图tu2所suo示shi。

　　在zai程cheng序xu运yun行xing的de过guo程cheng中zhong，鼠shu标biao移yi动dong到dao或huo按an钮niu上shang时shi工gong具ju栏lan就jiu会hui自zi动dong滚gun动dong以yi显xian示shi工gong具ju栏lan的de其qi他ta部bu分fen，如ru图tu3所suo示shi。

　　

　　

　　图tu2 程cheng序xu运yun行xing的de初chu始shi画hua面mian

　　图tu3 程cheng序xu运yun行xing结jie果guo

　　如ru果guo设she置zhiTPageScroller组zu件jian的deAutoScroll属shu性xing值zhi为weiFalse，那na么me在zai程cheng序xu运yun行xing的de过guo程cheng中zhong，只zhi有you单dan击ji或huo按an钮niu时shi，工gong具ju栏lan才cai会hui自zi动dong滚gun动dong以yi显xian示shi工gong具ju栏lan的de其qi他ta部bu分fen。【原文】

 

 

 

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