Buscar

Wheel (Roda) do Mouse em ScrollBox

Código

Depois de muitas tentativas para manipular a rolagem do ScrollBox com a roda scroll do mouse. Consegui da seguinte forma (utilizados os eventos OnMouseWheelDown e OnMouseWheelUp do FORM!!!);

¬ OnMouseWheelDown:

procedure TfPrincipal.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

With ScrollBox1.VertScrollBar Do
 Begin
  If (Position <= (Range - Increment)) Then
   Position := Position + Increment Else
    Position := Range - Increment;
 End;
end;


¬ OnMouseWheelUp:

procedure TfPrincipal.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin

With ScrollBox1.VertScrollBar Do
 Begin
  If (Position >= Increment) Then
   Position := Position - Increment Else
    Position := 0;
 End;
end;

************************************************

Vamos compartilhar informações. Só temos a ganhar! É tão bom quando encontramos a informação que precisamos... então o que nos impede contribuir também ?! Tantos se esforçam (até deixam seus afazeres) pra nos ajudar. Façamos um mundo melhor: menos competitivo e mais CRIATIVO em que todos ganham ! Sucesso... !

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 16/06/10
Por: Manoel Pereira
Visualizada: 12902 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009