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
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;