猜字游戏（ScrollBar组件）

 

ScrollBar组件位于组件板的Standard页上，用于各类组件的滚动控制，其主要属性如下：
1．主要属性
(1)Kind属性
Kind属性用于控制ScrollBar组件的位置状态。当Kind为True时，scroollBar组件呈水平状态，为False时呈垂直状态。
(2)Postion属性
Postion属性提供ScrollBar组件中滑块的位置坐标值，以实现对其他组件的滚动控制。
(3)Min与Max属性
Min与Max属性用于设置ScrollBar组件中位置坐标的最小与最大值。
(4)SmallChange属性
SmallChange属性用于设置单击ScrollBar组件两端按钮时，滚动滑块的移动距离。
(5)LargeChange属性
单击ScrollBar组件空白位置时，滚动滑块的移动距离。
2．主要事件
滚动条组件的主要事件为OnChange事件。当用户拖动滚动条上的滑块，改变postion值时触发该事件,

编辑工程文件 添加属性初始化
在 Project菜单中选择view source就可以了.
---------------------------------------------------
需要控件Button，Scrollbar，Label

procedure TForm1.Button1Click(Sender: TObject);
begin
scrollbar1.Enabled:=true;
button1.Enabled:=true;
label1.Caption:='0' ;
TargetNum:=Random(101) ;
button1.Enabled:=false;
button1.Caption:='重新开始';
button2.Enabled:=true;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
label1.Caption:=inttostr(scrollbar1.Position);
end;

procedure TForm1.Button2Click(Sender: TObject);
var MyNum:integer;
begin
 MyNum:=ScrollBar1.Position;
 if MyNum >  TargetNum then
 begin
 showmessage('你猜的的数大了')
  end

 else if MyNum < TargetNum then
 begin
 showmessage('数小了')    ;
 end
 else
 begin
 showmessage('正确了,数就是'+inttostr(targetNum)+'在玩一次吧');
 button1.Enabled:=true;
 ScrollBar1.Enabled:=true;
 button2.Enabled:=false;
 label1.Caption:='';
end;
end;
---------------------------------------------------