infoBlogs

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.

Outros assuntos neste blog:

• Modelos de interface SDI, MDI, TDI e NDI

• Tiburon: o que esperar do Delphi 2008

• ActiveControl e SetFocus

• Teclas Enter e Esc no Delphi

• DataSnap, de MIDAS a Tiburón

• TcxGrid como ListBox (parte 1/2)

• Mais sobre etiquetas de códigos de barras

• Importe de XLS, Access, DBF e muito mais

• Download via HTTP com Synapse

• TcxGrid como ListBox (parte 2/2)

• Modificando o menu de sistema

• Usando o Botão Scroll em um TScrollBox

• Embarcadero compra CodeGear

• TList and Sort

• MySQL no Delphi 2007

• Bibliotecas Delphi Open Source

• DataSet Providers em run-time

• Queries dinâmicas no servidor DataSnap

• ActiveControl mais esperto

• Feche a porta antes de entrar!

• Tradução de Projetos Delphi

• Published Property Default

• Strings de Listas de Strings

• Compilação Condicional

• Compilação Rápida

• Por que Delphi?

• Macros e Arrays Constantes

• Case of String

• AsyncCalls - execute funções asíncronas

• DBHelpers 2, RecordEnumerator

• Nem tudo na vida é objeto

• Scroll Grid Font Size

• DUG-BR faz pesquisa sobre eventos

• kbmMemTable

• Lugar de SQL é no servidor

• Class helpers

• DBHelpers 3

• Reordenação de Items em ListBox

• Delphi Prism Video

• DBHelpers

• Modificando o menu de sistema

• Respeito à Propriedade Privada

• Delphi Prism Video

• Casa&Vídeo demite 30%

• DataSnap com Stored Procedures (1/3)

• TField.Name do seu jeito

• Software Development Déjà Vu

• Previna AV com Assert

• Serialização de Variants

• Macros e Arrays Constantes