Usando o Botão Scroll em um TScrollBox

Um problema muito interessante foi recentemente apresentado em um fórum brasileiro: como usar o botão de scroll do mouse para fazer a rolagem em um componente TScrollBox?

A resposta é surpreendentemente simples. Basta usar os eventos OnMouseWheelDown e OnMouseWheelUp do TScrollBox conforme o exemplo abaixo:

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.

PS: Esses títulos meio-português, meio-inglês ficam cada dia mais ridículos.

Comments

• Artigos Recentes

  • Records com Métodos e Propriedades
  • Nova versão de VarStreams
  • Reordenação de Items em ListBox
  • Teclas Enter e Esc no Delphi
  • Modelos de interface SDI, MDI, TDI e NDI
  • MySQL no Delphi 2007
  • Delphi Prism Video
  • Delphi Prism no Visual Studio .NET

• Recent Comments

  Gilson commented on Nem tudo na vida é objeto Bom dia a todos, não vejo vantagem nenhuma em usar essa intrincada /complicada hierarquia de classes
  
  Douglas commented on Queries dinâmicas no servidor DataSnap Olá a todos. Estou atribuindo um SQL diferente a uma SQLQuery a cada execução (open), porém estou te
  
  Daniel Grillo commented on DataSnap, de MIDAS a Tiburón Caro Daniel, Com o lançamento do Delphi 2010 o código do Midas.dll está aberto. O que você acha diss
  
  Eder Moraes commented on Modelos de interface SDI, MDI, TDI e NDI Voltei a escrever porque achei um informativo da Microsoft sobre: http://support.microsoft.com/kb/92
  
  Eder Moraes commented on Modelos de interface SDI, MDI, TDI e NDI Muito bom o texto, bem explicativo, quanto trabalho com MDI, não deixo que ele seja criado automatic
  
  

• Twitter

  
  follow dmalta at http://twitter.com

• 
  

• Sobre

  Malta on Delphi é um site de artigos técnicos originais sobre Delphi.

  

• Marcadores

  .NET Borland class helpers CodeGear compilador compressão comunicação criptografia DataSnap DB dbExpress DB Helpers Delphi DevExpress expressões regulares generics impressora Java JCL kbmMemTable kbmMW linguagem localização macros memória OOP Prism RTL Ruby on Rails SQL Synapse TCP/IP thread Tiburón tradução UI VCL

• Archives

  • January 2009
  • November 2008
  • October 2008
  • August 2008
  • May 2008
  • April 2008
  • March 2008
  • January 2008
  • December 2007
  • November 2007

• Blogroll

  • Cesar Romero
  • Delphi Feeds
  • Erick Sasse
  • Estação ZN
  • Leonel Togniolli