Como rolar scrollbox usando o scroll do mouse
18/02/2005
0
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!
Obrigado pela atenção!
Um forte abraço!
Jorgerock
Curtir tópico
+ 0
Responder
Post mais votado
04/08/2009
Boa Noite,
Não sei se já resolveu, mas é só vc usar os eventos OnMouseWheelDown e OnMouseWheelUp do TScrollBox conforme exemplo:
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/
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/
Digitom
Responder
Clique aqui para fazer login e interagir na Comunidade :)
