读书人

在delphi中怎么实现滚屏

发布时间: 2012-02-21 16:26:23 作者: rapoo

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

[解决办法]
用一个timer来控制就可以了

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ADODataSet1.RecNo:=ADODataSet1.RecNo+10;
end;
[解决办法]
if ADODataSet1.RecordCount=ADODataSet1.RecNo then
begin
ADODataSet1.RecNo := 1;
end;
ADODataSet1.RecNo := ADODataSet1.RecNo+10;


我是把二楼的稍做修改,试了一下还是要以滚屏

读书人网 >.NET

热点推荐