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

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;  

如何滚动客户区？

http://wenda.tianya.cn/wenda/thread?tid=32c13056569fa8e8

程序使用ScrollWindow或者ScrollDc函数滚动客户区一部分时4、程序使用InvalidateRect ... 1、Windows擦除覆盖了部分窗口的对话框或者消息框2、菜单下拉出来然后释放3、显示工具提示某些 .... 五、滚动条1、客户区域的大小： 客户区与是否最大化可以通过 ... IBar: SB_VERT或SB_HORZ或者是滚动条控制的SB_CTL SCROLLINFOR结构定义如下