scroll button do mouse e scroll bar da dbGrid

Question

Queria fazer com que a dbgrid rolasse seu scroll bar quando se utilizasse o scroll button do mouse. Mas em vez disso, quando se usa o scroll button no dbGrid, ele rola somente linhas da mesma, n�o avan�ando para os pr�ximos registros. O que eu evo fazer?

Macario · Answer

Ol�.Bom eu utilizo o TRxDBGrid da suita RxLib.Ele ja implementa este metodo. Voce pode usar este componente, ou ver como ele faz para implementar este metodo.Espero que ajude. 8)...

Bico · Answer

Ol� colega.Tive este mesmo problema.Resolvi da seguinte forma:Declare o m�todo privado:[code:1:28e34eefaa]procedure Teste(var Msg: TMsg; var Handled: Boolean) ;[/code:1:28e34eefaa]A implementa��o deste m�todo � a seguinte:[code:1:28e34eefaa]procedure TForm1.Teste(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;[/code:1:28e34eefaa]No evento OnCreate do Form coloque o seguinte c�digo:[code:1:28e34eefaa]procedure TForm1.FormCreate(Sender: TObject);begin  Application.OnMessage := Teste;end;[/code:1:28e34eefaa]Espero ter ajudado.Se quiser eu posso enviar um exemplo por e-mail ou pelo msn.Atenciosamente,Fernando....

Vitor Rubio · Answer

Bico, vou testar desse jeito que voc� falou, usando messages.Macario, uma pergunta: a rxLib foi incormporada, unida ou engolida pelo projeto JEDI, ou ela ainda tem uma vers�o independente?...

F�rum scroll button do mouse e scroll bar da dbGrid #325475