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

字號:

本實例制作一個可以自動滾動的工具欄。
    在窗體中添加一個TImageList組件,并且為它添加幾個圖像文件。然后添加一個TToolBar組件,設置TToolBar組件的Images屬性為TImageList組件,在TToolBar組件上右擊,在彈出的快捷菜單中選擇New Button項,為TToolBar組件添加幾個按鈕,并設置按鈕的ImageIndex屬性分別對應TImageList組件中的圖像索引編號。最后向窗體上添加一個TPageScroller組件,設置它的AutoScroll屬性值為True,設置Control屬性為TToolBar組件,如果TToolBar組件的尺寸大于TPageScroller組件的尺寸,就會顯示一個按鈕。
    保存文件,然后按F9鍵運行程序,程序運行的初始畫面如圖2所示。
    在程序運行的過程中,鼠標移動到或按鈕上時工具欄就會自動滾動以顯示工具欄的其他部分。
    如果設置TPageScroller組件的AutoScroll屬性值為False,那么在程序運行的過程中,只有單擊或按鈕時,工具欄才會自動滾動以顯示工具欄的其他部分。