| 導購 | 订阅 | 在线投稿
分享
 
 
 

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

2006-12-16 17:29:04  編輯來源:互聯網  简体版  手機版  移動版  評論  字體: ||

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

在窗體中添加一個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,那麽在程序運行的過程中,只有單擊或按鈕時,工具欄才會自動滾動以顯示工具欄的其他部分。
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有