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

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

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

設計完成的窗體如圖1所示。

圖1 主界面

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

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

圖2 程序運行的初始畫面

圖3 程序運行結果

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

 

特别声明：以上内容(如有图片或视频亦包括在内)为网络用户发布，本站仅提供信息存储服务。

 

本實例制作一個可以自動滾動的工具欄。 　　在窗體中添加一個TImageList組件，並且爲它添加幾個圖像文件。然後添加一個TToolBar組件，設置TToolBar組件的Images屬性爲TImageList組件，在TToolBar組件上右擊，在彈出的快捷菜單中選擇New Button項，爲TToolBar組件添加幾個按鈕，並設置按鈕的ImageIndex屬性分別對應TImageList組件中的圖像索引編號。最後向窗體上添加一個TPageScroller組件，設置它的AutoScroll屬性值爲True，設置Control屬性爲TToolBar組件，如果TToolBar組件的尺寸大于TPageScroller組件的尺寸，就會顯示一個按鈕。 　　設計完成的窗體如圖1所示。 [url=/bbs/detail_571352.html][img]http://images.wangchao.net.cn/images/upload/images/1166261344406.jpg[/img][/url] 圖1 主界面 　　保存文件，然後按F9鍵運行程序，程序運行的初始畫面如圖2所示。 　　在程序運行的過程中，鼠標移動到或按鈕上時工具欄就會自動滾動以顯示工具欄的其他部分，如圖3所示。 [url=/bbs/detail_571352.html][img]http://images.wangchao.net.cn/images/upload/images/1166261344468.jpg[/img][/url] 圖2 程序運行的初始畫面 [url=/bbs/detail_571352.html][img]http://images.wangchao.net.cn/images/upload/images/1166261344515.jpg[/img][/url] 圖3 程序運行結果 　　如果設置TPageScroller組件的AutoScroll屬性值爲False，那麽在程序運行的過程中，只有單擊或按鈕時，工具欄才會自動滾動以顯示工具欄的其他部分。