如何控制ListView的scrollbar(等待中...)

Question

如何控制ListView的scrollbar

Answer 1

uses ...shellAPI;  
private
    { Private  }
    X , Y ： integer ;
    procedure ON_WM_MOVE(var msg:TMessage);
    message WM_MOVE;
......
procedure TmainFrm.ON_WM_MOVE(var msg:TMessage);
var
  tmpStr : String ;
begin
    inherited ;
    if (msg.Msg=WM_MOVE) and IsOpen then
    begin
        cmb.Top := top + X ;
        cmb.Left:= left + Y ;
    end;
end;
在滚动事件中及如以下函数：
    X := yourX;
    Y := yourY;
   ON_WM_MOVE(WM_MOVE); 

Answer 2

我也不懂,scrollbar本来就在右边啊!