ScrollBox, auf mausrad ?!?

[fadz]

hi,
entweder ich blicke dad grade net oda ich bin zu dumm dafür ;)

aber gibt es eine möglichkeit beim benutzten des mausscrollrades die scrollleisten nach unten scrollen zu lassen ?

das event dafür hab ich ja schon gefunden, dieses OnMouseWheelDown / Up

aber wie lasse ich die scrolleisste dabei scrollen ?

thx für eure hilfe

[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.