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

[一剑飘雪]

我网上找了这个

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AdvStringGrid1.Perform(WM_VSCROLL,SB_PAGEDOWN,0);
end;

但是它不循环，而且如果AdvStringGrid1的高度大于它的行数，也没那种滚动效果。
可有其他什么办法呢

[bdmh]

定时，用下一行数据，覆盖上一行数据，依次类推

[songtreer]

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

[kye_jufei]

這其實是一個AdvStringGrid分頁顯示數據效果，這裡有demo:

http://download.csdn.net/source/707115

[一剑飘雪]

[Quote=引用 1 楼 songtreer 的回复:]
Delphi(Pascal) code

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with AdvStringGrid1 do
begin
if GetRealRow < RowCount - 1 then
Row := Row + 1
else
Row := 1;
……
[/Quote]
你这个是鼠标位置移动啊！又不是数据循环滚动
不过还是谢谢

[一剑飘雪]

[Quote=引用 2 楼 kye_jufei 的回复:]
這其實是一個AdvStringGrid分頁顯示數據效果，這裡有demo:

http://download.csdn.net/source/707115
[/Quote]
嗯 我先下载看看