Stupid DBGRID

Is it possible in any way to make the dbgrid follow the scroll button on the mouse all the way down?? When it gets down to the last line in the grid it stops, why doesnt it go all the way down to the end of the grid! when using the scroll??

PLZ HELP!
tscooter82Asked:
Who is Participating?
 
SaLzCommented:
Mouse wheel behaves strangely with dbgrids - this code handler will correct this behavior.

Just drop a TApplication component on a form.

procedure Application1.OnMessage
  (var Msg: TMsg; var Handled: Boolean);
var
  i: SmallInt;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Msg.message := WM_KEYDOWN;
    Msg.lParam := 0;
    i := HiWord(Msg.wParam);
    if i > 0 then
      Msg.wParam := VK_UP
    else
      Msg.wParam := VK_DOWN;

    Handled := False;
  end;
end;
0
 
tscooter82Author Commented:
Thx, mate! Exactly what i needed!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.