為Delphi程序添加自動滾動的工具欄

　　本實例制作一個可以自動滾動的工具欄

　　在窗體中添加一個TImageList組件並且為它添加幾個圖像文件然後添加一個TToolBar組件設置TToolBar組件的Images屬性為TImageList組件在TToolBar組件上右擊在彈出的快捷菜單中選擇New Button項為TToolBar組件添加幾個按鈕並設置按鈕的ImageIndex屬性分別對應TImageList組件中的圖像索引編號最後向窗體上添加一個TPageScroller組件設置它的AutoScroll屬性值為True設置Control屬性為TToolBar組件如果TToolBar組件的尺寸大於TPageScroller組件的尺寸就會顯示一個按鈕

　　設計完成的窗體如圖所示

　　

圖 主界面

　　保存文件然後按F鍵運行程序程序運行的初始畫面如圖所示

　　在程序運行的過程中鼠標移動到或按鈕上時工具欄就會自動滾動以顯示工具欄的其他部分如圖所示

　　

圖 程序運行的初始畫面

　　

圖 程序運行結果

　　如果設置TPageScroller組件的AutoScroll屬性值為False那麼在程序運行的過程中只有單擊或按鈕時工具欄才會自動滾動以顯示工具欄的其他部分

From:http://tw.wingwit.com/Article/Network/201311/30076.html