订阅本文为【为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。
【原文】
