mover VertScrollBar con la rueda del ratón (mouse)

[TrUnkS]

Hola a todos, bueno esa es mi pregunta. Quisiera saber como mover la barra de desplazamiento vertical en un form pero sin necesidad de pinchar sobre él, osea que se mueva mediante la rueda del ratón. De antemano gracias

[jmariano]

En Delphi 7 (no me acuerdo en versiones anteriores), los formularios poseen tres eventos relacionados con dicha ruedita: OnMouseWheel, OnMouseWheelDown y OnMouseWheelUp. Así que podrías escribir algo así para el movimiento de la ruedita:

Código Delphi [-]
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  with Form1.VertScrollBar do
    Position := Position + 10; // Se desplaza hacia abajo
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  with Form1.VertScrollBar do
    Position := Position - 10; Se desplaza hacia arriba
end;

Saludos!

[TrUnkS]

Funciona de maravilla, se agradece enormemente el aporte

[kimera]

Pregunta..

Funcionaria igual para mover la barra vertical del scrollbox, porque no puedo hacer que esta se mueva con el scroll del mouse..