dbgrideh 如何让所显示数据自动循环滚动(50)

以下是一段滚动代码，不能循环滚动，怎么才能让它循环滚动？procedure TForm1.Timer1Timer(Sender: TObject);varm:tmessage;begin m.Msg:=WM_VSCROLL; m.WParamLo:=SB_LINEDOWN; m.WParamHi:=1 ; m.LParam:=0; postmessage(self.DBGrid1.Handle,m.Msg,m.WParam,m.LParam);end;procedure TForm1.Button1Click(Sender: TObject);beginself.Timer1.Enabled:=true;end;

用TIMER控件。。。

procedure TForm1.Timer2Timer(Sender: TObject);var m: tmessage;begin m.Msg := WM_VSCROLL; m.WParamLo := SB_LINEDOWN; m.WParamHi := 1; m.LParam := 0; postmessage(self.DBGrid2.Handle, m.Msg, m.WParam, m.LParam); if spFlowNoInAnalyzer.Eof then spFlowNoInAnalyzer.First;//要处理下的,我这样没有问题的,可以滚动.end;