Mausrad verwenden?

[Micha]

Kann es sein, dass du soetwas meinst:

Delphi-Quellcode:

procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 ScrollBox1.ScrollBy(0,3);
end;

procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 ScrollBox1.ScrollBy(0,-3);
end;