Einzelnen Beitrag anzeigen

Rolf Frei

Registriert seit: 19. Jun 2006
621 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Mit dem Mausrad in einer Scrollbox scrollen

  Alt 11. Jul 2019, 15:53
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.

Geändert von Rolf Frei (11. Jul 2019 um 15:57 Uhr)
  Mit Zitat antworten Zitat