Delphi TScrollBar 用于滾動窗口、組件內容

滾動條組件（TScrollBar）此組件是一個Windows滾動條，用于滾動窗口、組件內容。許多控制有滾動條屬性，它們把滾動條作為自己的一部分，對于沒有完整滾動條的控制，TScrollBar組件提供了一個附加的功能，運用它可以使某些控制的內容易于操作。?

1、TScrollBar組件的典型用法

一般情況下，滾動條是自動加入的，例如前面講的列表框，當項目不能完全顯示時，列表框將自動加上滾動條。當用戶操作滾動條時，列表自動滾動。

如果想自己操縱窗口滾動，就要用到TScrollBar組件，當用戶在滾動條上操作時，將觸發OnScroll事件，這樣就可以操縱怎樣滾動了。

在通常情況下，用戶只利用OnScroll事件，并在代碼中引用Position屬性，獲取TScrollBar組件中小方塊的位置，然后利用此值進行操作，例如設置文字的字號大小、顏色的取值等。?

2、TScrollBar組件的重要屬性?

Kind---------此屬性用于設置滾動條是水平方向的還是垂直方向的?
LargeChange--設置滾動條滾動的距離

Max------------此屬性用于設置滾動條的最終值?
Min------------此屬性用于設置滾動條的起始值?
PageSize-------當按PgUp或PgDn鍵時，設置滾動條滾動的距離Position設置或返回滾動條中小方塊的位置?
SmallChange----用戶按下滾動條兩端的箭頭時滾動條滾動的距離

（1）Kind屬性?
Kind屬性用于設置滾動條是水平方向的還是垂直方向。它有兩個取值：?
. sbHorrizontal：水平方向；?
. sbVertical：垂直方向。

（2）LargeChange屬性
當用戶單擊滾動條內（不是滾動條兩端的箭頭）時，滾動條滾動的距離是由LargeChange屬性設置的，默認是?
1，這是一個相對數。假設LargeChange屬性設為10，如果Max屬性減去Min屬性為80，則用戶只要按8次滾動條就能從一端滾到另一端。

（3）Max屬性和Min屬性
這兩個屬性分別用來設置滾動條的最終值和起始值，它們的取值在-2147483648和2147483647之間。?
Max屬性取值必須大于Min屬性，并且必須為0或正整數。

（4）PageSize屬性
當用戶按PgUp或PgDn鍵時，滾動條滾動的距離是由PageSize屬性設置的，默認是1。

（5）Position屬性?
Position屬性用于設置或返回滾動條中小方塊的位置，可以在設計期設置Position屬性指定的小方塊的起始位置，也可以在運行期修改Position屬性使滾動條滾動。

（6）SmallChange屬性?
SmallChange屬性與LargeChange屬性相似，不同的是，它是用戶按滾動條兩端的箭頭時滾動條滾動的距離，默認值是1。?

3、TScrollBar組件的重要事件

OnChange-------------用戶操作滾動條或者通過編程直接修改?
Position-------------屬性的值，都會觸發該事件?
OnScroll-------------當用戶操作滾動條時將觸發這個事件

（1）OnChange事件
用戶操作滾動條或者通過編程直接修改Position屬性的值，都會觸發該事件。?
OnScroll事件只在用戶操作滾動條時才會發生，OnChange事件發生在OnScroll事件之后。

（2）OnScroll事件
當用戶操作滾動條時將觸發這個事件。其中ScrollPos參數返回滾動條中小方塊的位置ScrollCode參數返回滾動條的狀態。可以是以下各值。
. scLineUp：用戶按下滾動條的左或上箭頭或者鍵盤上的向上方向鍵。?
. scLineDown：用戶按下滾動條的右或下箭頭或者鍵盤上的向下方向鍵。?
. scPageUp：用戶單擊滾動條內小方塊左邊或上邊的區域或者按下PgUp鍵。?
. scPageDown：用戶單擊滾動條內小方塊右邊或下邊的區域或者按下PgDn鍵。?
. scPosition：用戶在滾動條內拖拽小方塊并且已釋放。?
. scTrack：用戶正在拖拽小方塊。?
. scTop：用戶把小方塊移到滾動條的上端或左端。?
. scBottom：用戶把小方塊移到滾動條的下端或右端。?
. scEndScroll：用戶操作滾動條后釋放了鼠標或按鍵。