5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TPreserveFrm.Timer1Timer(Sender: TObject);
begin
With DBGrid1.DataSource.DataSet do
begin
Next;
if Eof then First;
end;
end;
二、放二个Button,分别为“开启”和“关闭”按钮
procedure TPreserveFrm.Button142Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TPreserveFrm.Button143Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;
运行程序。
点击“开启”按钮,DBGrid数据开始翻滚。
点击“关闭”按钮,DBGrid数据停止翻滚。
代码已经测试。