Mit dem Mausrad in einer Scrollbox scrollen

[Rolf Frei]

Zitat von delphicoder123:

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.