Das richtige Ereignis zu nehmen hat auch nicht geholfen.
Genau das gleiche Verhalten, wie vorher.
Delphi-Quellcode:
procedure TForm1.ScrollBox2MouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
begin
ScrollBox2.VertScrollBar.Position := ScrollBox2.VertScrollBar.Position + WheelDelta;
end;
Du musst bei ScrollBox2.VertScrollBar.Range einen Wert drin haben der grösser als die Höhe deiner Scrollbox ist, ansonsten kann er ja auch nichts scrollen. Der Range gibt dir an wie hoch der Scrollbereich sein soll. Setze den mal 4000 und dann klappt das auch mit dem Scrollen. Verwende mein Beispiel vom letzten Post. Das passt die Geschwindigkeit an die Einstellung der Maus an.