AdvStringGrid数据如何实现循环滚动？就像火车站大厅那种！

Question

我网上找了这个
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AdvStringGrid1.Perform(WM_VSCROLL,SB_PAGEDOWN,0);
end;
但是它不循环，而且如果AdvStringGrid1的高度大于它的行数，也没那种滚动效果。
可有其他什么办法呢

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with AdvStringGrid1 do
  begin
    if GetRealRow < RowCount - 1 then
      Row := Row + 1
    else
      Row := 1;
  end;
end;

Answer 2

這其實是一個AdvStringGrid分頁顯示數據效果，這裡有demo:http://download.csdn.net/source/707115