dbgrid+adoquery的问题？

Question

我用以上空间做的数据库查询，反映到我的程序中
在DBGRID里面我用鼠标的滚轮可以移动到能看到的最后一条，然后就不能向下移动了，有没有办法让它继续移动啊？

Answer 1

从Additional面板选择ApplicationEvents1控件
再他的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;