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