Como rolar scrollbox usando o scroll do mouse

Delphi

18/02/2005

Olá pessoal! Estou tentando movimentar a barra de rolagem vertical de um scrollbox com o scroll do mouse, estou tendo dificuldades! alguem pode me dar uma dica? Agradeço qualquer ajuda!
Obrigado pela atenção!
Um forte abraço!


Jorgerock

Jorgerock

Curtidas 0

Melhor post

Digitom

Digitom

04/08/2009

Boa Noite,

Não sei se já resolveu, mas é só vc usar os eventos OnMouseWheelDown e OnMouseWheelUp do TScrollBox conforme exemplo:



procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  with ScrollBox1.VertScrollBar do
  begin
    Position := Position + Increment;
  end;
end;
 
procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  with ScrollBox1.VertScrollBar do
  begin
    Position := Position - Increment;
  end;
end;


Alterando o valor da propriedade VertScrollBar.Increment do TScrollBox no Object Inspector obtém-se velocidades de rolagem diferentes.

Fonte: http://singularsistemas.com.br/blog/2008/04/usando-o-botao-scroll-em-um-tscrollbox/


GOSTEI 1
POSTAR