Netscroll No Dbgrid,

[deivis]

Utilizo o delphi 6 e gostaria de saber se é possível rolar todo o dbgrid utilizando o net scrool do mouse, pois eu tentei aqui e ele rola somente os dados que são visíveis da primeira vez que o dbgrid é aberto.

[deivis]

Já resolveram o meu problema no ForumWeb:

Colocar um ApplicationEvents e no evento OnMessage:

var
i: SmallInt;
begin
  if ( Msg.message = WM_MOUSEWHEEL ) then
  begin
    if ( ( Screen.ActiveForm.ActiveControl <> nil ) and
    ( Screen.ActiveForm.ActiveControl.ClassName = 'TDBGrid' ) ) 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;
end;