scroll button do mouse e scroll bar da dbGrid

Delphi

17/07/2006

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?


Vitor Rubio

Vitor Rubio

Curtidas 0

Respostas

Macario

Macario

17/07/2006

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)


GOSTEI 0
Bico

Bico

17/07/2006

Olá colega.

Tive este mesmo problema.

Resolvi da seguinte forma:

Declare o método privado:
procedure Teste(var Msg: TMsg; var Handled: Boolean) ;

A implementação deste método é a seguinte:
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;

No evento OnCreate do Form coloque o seguinte código:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := Teste;
end;


Espero ter ajudado.
Se quiser eu posso enviar um exemplo por e-mail ou pelo msn.

Atenciosamente,
Fernando.


GOSTEI 0
Vitor Rubio

Vitor Rubio

17/07/2006

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?


GOSTEI 0
POSTAR