一般情况下，滚动条是自动加入的。如果计划自己控制窗口的滚动，就可以使用滚动条（TScrollBar）组件。其主要属性如下：
属性 | 说明 |
LargeChange | 设置当用户单击滚动条时（非箭头部分）滚动的距离 |
Max | 可滚动的最大值 |
Min | 可滚动的最小值 |
PageSize | 按下PgUp、PgDn键时滚动条的滚动距离 |
Position | 设置或返回滚动条中方块的位置 |
SmallChange | 单击滚动条两端的箭头滚动的距离 |
主要方法：
方法 | 说明 |
SetParams | 该过程用于设置Position、Max和Min属性 |
主要事件：
事件 | 说明 |
OnScroll | 用户操作滚动条时触发的事件，其中，第二个参数返回滚动条的状态，第三个参数返回滚动条方块的位置 |
示例：当滚动条的方块位置变化时显示当前位置，界面如下图：
代码如下：
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
Label1.Caption := '当前位置：' IntToStr(ScrollBar1.Position);
end;
