【3.Delphi常用组件】6.滚动条

6.滚动条

一般情况下，滚动条是自动加入的。如果计划自己控制窗口的滚动，就可以使用滚动条（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;