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

Question

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

Answer 1

可以截获消息，为你的DBGrid添加鼠标滚动事件。
如有需要，可以看这个：
http://hi.baidu.com/yueyun889/blog/item/48cb8613f0b4eb826438dbc3.html

Answer 2

在窗体上添加一个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;