本實(shí)例制作一個(gè)可以自動(dòng)滾動(dòng)的工具欄。
在窗體中添加一個(gè)TImageList組件，并且為它添加幾個(gè)圖像文件。然后添加一個(gè)TToolBar組件，設(shè)置TToolBar組件的Images屬性為T(mén)ImageList組件，在TToolBar組件上右擊，在彈出的快捷菜單中選擇New Button項(xiàng)，為T(mén)ToolBar組件添加幾個(gè)按鈕，并設(shè)置按鈕的ImageIndex屬性分別對(duì)應(yīng)TImageList組件中的圖像索引編號(hào)。最后向窗體上添加一個(gè)TPageScroller組件，設(shè)置它的AutoScroll屬性值為T(mén)rue，設(shè)置Control屬性為T(mén)ToolBar組件，如果TToolBar組件的尺寸大于TPageScroller組件的尺寸，就會(huì)顯示一個(gè)按鈕。
保存文件，然后按F9鍵運(yùn)行程序，程序運(yùn)行的初始畫(huà)面如圖2所示。
在程序運(yùn)行的過(guò)程中，鼠標(biāo)移動(dòng)到或按鈕上時(shí)工具欄就會(huì)自動(dòng)滾動(dòng)以顯示工具欄的其他部分。
如果設(shè)置TPageScroller組件的AutoScroll屬性值為False，那么在程序運(yùn)行的過(guò)程中，只有單擊或按鈕時(shí)，工具欄才會(huì)自動(dòng)滾動(dòng)以顯示工具欄的其他部分。
在窗體中添加一個(gè)TImageList組件，并且為它添加幾個(gè)圖像文件。然后添加一個(gè)TToolBar組件，設(shè)置TToolBar組件的Images屬性為T(mén)ImageList組件，在TToolBar組件上右擊，在彈出的快捷菜單中選擇New Button項(xiàng)，為T(mén)ToolBar組件添加幾個(gè)按鈕，并設(shè)置按鈕的ImageIndex屬性分別對(duì)應(yīng)TImageList組件中的圖像索引編號(hào)。最后向窗體上添加一個(gè)TPageScroller組件，設(shè)置它的AutoScroll屬性值為T(mén)rue，設(shè)置Control屬性為T(mén)ToolBar組件，如果TToolBar組件的尺寸大于TPageScroller組件的尺寸，就會(huì)顯示一個(gè)按鈕。
保存文件，然后按F9鍵運(yùn)行程序，程序運(yùn)行的初始畫(huà)面如圖2所示。
在程序運(yùn)行的過(guò)程中，鼠標(biāo)移動(dòng)到或按鈕上時(shí)工具欄就會(huì)自動(dòng)滾動(dòng)以顯示工具欄的其他部分。
如果設(shè)置TPageScroller組件的AutoScroll屬性值為False，那么在程序運(yùn)行的過(guò)程中，只有單擊或按鈕時(shí)，工具欄才會(huì)自動(dòng)滾動(dòng)以顯示工具欄的其他部分。