用 dbgrid 或 dbgrideh 如何让所显示数据自动滚动

标签：os   数据   for   ar   代码   line   on   table   

procedure TForm1.Timer1Timer(Sender: TObject);
var
m: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);
begin
self.Timer1.Enabled:=true;
end;

如果需要让他自动不断地从头到尾滚动，添加如下代码
if table1.Eof then table1.First;

用 dbgrid 或 dbgrideh 如何让所显示数据自动滚动,布布扣,bubuko.com

用 dbgrid 或 dbgrideh 如何让所显示数据自动滚动

标签：os   数据   for   ar   代码   line   on   table   

原文地址：http://www.cnblogs.com/qzfitsoft/p/3916506.html