ScrollBox, auf mausrad ?!?

[Sprint]

Delphi-Quellcode:

procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

  with (Sender as TScrollBox).VertScrollBar do
    Position := Position + 10;

end;

Delphi-Quellcode:

procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

  with (Sender as TScrollBox).VertScrollBar do
    Position := Position - 10;

end;

Dieses einfache Beispiel hat aber den Nachteil, das ein Steuerelement in der ScrollBox den Fokus haben muss. Ich würde eher formweit die WheelMessage abfangen und prüfen ob die Maus über der ScrollBox ist.