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

[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