在delphi中如何实现滚屏？

Question

因为我的数据很多，而要用电视来显示，所以只能以滚屏的方式才能让人家看到要看的数据，请问大家如何实现滚屏技术？

Answer 1

用一个timer来控制就可以了procedure TForm1.Timer1Timer(Sender: TObject);
begin
ADODataSet1.RecNo:=ADODataSet1.RecNo+10;
end;

Answer 2

if ADODataSet1.RecordCount=ADODataSet1.RecNo  then
 begin
  ADODataSet1.RecNo := 1;
 end;
   ADODataSet1.RecNo := ADODataSet1.RecNo+10;
我是把二楼的稍做修改,试了一下还是要以滚屏