dbgrid中记录滚动，如何实现

dbgrid中记录滚动，怎么实现？

dbgrid表格控件

现在想实现控件中记录自动向上滚动，应该怎么实现?

[解决办法]
dbgrd1.DataSource.DataSet.MoveBy()
[解决办法]
可以截获消息，为你的DBGrid添加鼠标滚动事件。
如有需要，可以看这个：
http://hi.baidu.com/yueyun889/blog/item/48cb8613f0b4eb826438dbc3.html
[解决办法]
在窗体上添加一个ApplicationEvent控件，然后在它的OnMessage事件里写以下代码：
procedure TForm1.ApplicationEvents1Message(var Msg:tagMSG;var Handled:Boolean);
begin
if(DBGrid1.Focused)And(Msg.message=WM_MOUSEWHEEL)then
begin
if Msg.wParam>0 then
 SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0)
else
 SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;