WheelScrollLines

[ecfisa]

Hola FENIXadr.

Una posible solución es usar los eventos OnWheelDown y OnWheelUp.

Ejemplo:

Código Delphi [-]
type
  TForm1 = class(TForm)
    ...
    procedure FormShow(Sender: TObject);
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
  private
    FWheelDeltaX: Integer;
    FWheelDeltaY: Integer;
  public
  end;
...
implementation 

procedure TForm1.FormShow(Sender: TObject);
begin
  (* Aca asignas los valores de desplazamiento horizontal o
     vertical por giro de rueda que gustes *)
  FWheeldeltaX:= 0;  // horiz.
  FWheelDeltaY:= 8; // vert.
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  ScrollBy(-FWheelDeltaX, -FWheelDeltaY);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  ScrollBy(FWheelDeltaX, FWheelDeltaY);
end;
...

Un saludo.