怎么计算滚动条的滚动值！(50分)

我要执行一个比较长时间的存储过程，所以想用滚动条来实现等待过程，但不知道滚动值怎么计算，请各位大侠赐教，或者告知更好的方法实现等待。

基本没有什么方法，如果不需要很精确的话，先执行一次计算一下时间

ft

你说的是进度条吧？？
一般有一个position属性 将进度设到它里面就行了

我也想过这个问题，不过没成功
望高手指教
关注

rustle有什么好的办法吗

让用户等待不太好，所以还是想高手指点一下

position

用TProgressBar 比较合适！

ScrollBar 调节量的获得方法：

var OldPosition:integer;//全局变量

procedure TForm1.FormCreate(Sender: TObject);
begin
OldPosition:=ScrollBar1.Position ;
end;

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
var
n:integer;
begin
if scEndScroll<>ScrollCode then exit;
n:=ScrollBar1.Position-OldPosition; //你要的调节量
Label1.Caption:=Format('Old:%d;New%d;Moved:%d',[OldPosition,ScrollBar1.Position,n]);
OldPosition:=ScrollBar1.Position ;
end;