滚动条组件（TScrollBar）

此组件是一个Windows 滚动条，用于滚动窗口、组件内容。许多控制有滚动条属性，它们把滚动条作为自己的一部分，对于没有完整滚动条的控制，TScrollBar 组件提供了一个附加的功能，运用它可以使某些控制的内容易于操作。

1．TScrollBar 组件的典型用法

一般情况下，滚动条是自动加入的，例如前面讲的列表框，当项目不能完全显示时，列表框将自动加上滚动条。当用户操作滚动条时，列表自动滚动。

如果想自己操纵窗口滚动，就要用到TScrollBar 组件，当用户在滚动条上操作时，将触发OnScroll事件，这样就可以操纵怎样滚动了。

在通常情况下，用户只利用OnScroll 事件，并在代码中引用Position 属性，获取TScrollBar 组件中小方块的位置，然后利用此值进行操作，例如设置文字的字号大小、颜色的取值等。

2．TScrollBar 组件的重要属性

·Kind 此属性用于设置滚动条是水平方向的还是垂直方向的

·LargeChange 设置滚动条滚动的距离

·Max 此属性用于设置滚动条的最终值

·Min 此属性用于设置滚动条的起始值

·PageSize 当按PgUp 或PgDn 键时，设置滚动条滚动的距离

·Position 设置或返回滚动条中小方块的位置

·SmallChange 用户按下滚动条两端的箭头时滚动条滚动的距离

下面介绍程序中TScrollBar 组件的常用属性。

（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 当用户操作滚动条时将触发这个事件

下面介绍程序中TScrollBar 组件的常用事件。

（1）OnChange 事件

用户操作滚动条或者通过编程直接修改Position 属性的值，都会触发该事件。OnScroll 事件只在用户操作滚动条时才会发生，OnChange 事件发生在OnScroll 事件之后。

（2）OnScroll 事件

当用户操作滚动条时将触发这个事件。其中， ScrollPos 参数返回滚动条中小方块的位置，ScrollCode 参数返回滚动条的状态。可以是以下各值。

• scLineUp：用户按下滚动条的左或上箭头或者键盘上的向上方向键。

• scLineDown：用户按下滚动条的右或下箭头或者键盘上的向下方向键。

• scPageUp：用户单击滚动条内小方块左边或上边的区域或者按下PgUp 键。

• scPageDown：用户单击滚动条内小方块右边或下边的区域或者按下PgDn 键。

• scPosition：用户在滚动条内拖拽小方块并且已释放。

• scTrack：用户正在拖拽小方块。

• scTop：用户把小方块移到滚动条的上端或左端。

• scBottom：用户把小方块移到滚动条的下端或右端。

• scEndScroll：用户操作滚动条后释放了鼠标或按键。