控制ScrollBox的滚动条,设定滚动条的位置,滚动条改变但ScrollBox的当前位置没改变?

var
lpMinPos,lpMaxPos:integer;
begin
GetScrollRange(ScrollBox1.Handle,SB_HORZ,lpMinPos,lpMaxPos); G