Scrollen mit Mausrad

[vanilla]

hallo leute,

ich habe ein timage Komponent und drunter ein scrollbar liegen. Der parent Eigenschaft von timage habe ich die scollbar zugewiesen. Über die Scrollbars an den Seiten der Scrollbox kann ich scrollen, aber ich möchte auch mit dem Mausrad scrollen können, das muss mit den Ereignissen OnMouseWeepUp und Down gehen, mit dem was ich im Forum darüber gelesen habe, konnte ich nicht viel anfangen. please help :roll:

Delphi-Quellcode:

procedure TFormVorschau.ScrollBox_ErgMouseWheelUp(Sender: TObject;
      Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox_Erg.ScrollBy(0,10); 
end;  

procedure TFormVorschau.ScrollBox_ErgMouseWheelDown(Sender: TObject;
      Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox_Erg.ScrollBy(0,-10); 
end;

[vanilla]

also okay, ich habe bei Form die eigenschaft activecontrol auf scrollbar gesetzt und im ereignis formcreate den focus auf scollbar gesetzt und das scrollen mit mausrad funktioniert jetzt :)