Buscar por:

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... !