程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 為Delphi程序添加自動滾動工具欄

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

編輯: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,那麼在程序運行的過程中,只有單擊或按鈕時,工具欄才會自動滾動以顯示工具欄的其他部分。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved