TsScrollbar per Mousewheel bewegen ?

[calibra301]

Hallo,

gibts einen Weg eine TsScrollbar welche gerade den Fokus hat per Mausrad zu bewegen ?
Ein direktes Event gibts ja leider nicht. Google fand auch kein Ergebnis welches ich reproduzieren kann.


Danke und Gruss

Calli

[Bernhard Geyer]

Meinst du wirklich TsScrollbar von AlphaScins?
Dann wäre es Aufgabe von denen das Richtig zu unterstützen?

Evtl. einfach ein Update auf neuere Delphi-Versionen.
Manche Funktionalität gab es in solchen Alten Delphi-Versionen noch nicht und musste per Hand nachgerüstet werden (indem man in eigenen Ableitungen die Windows-Events behandelt hat.

[calibra301]

Arrrgg….sorry.

Ja, es ist AlphaSkins. Und meine aktuelle Delphi Version ist XE8
Hab das gerad in meinem Profil geändert.
Die Scrollbar von XE8 kann das aber auch nicht...

Calli

[Delbor]

Hi calibra301

Kannst du keine Scrollbox benützen? Die kennt ein Ereignis OnMouseWheel.

Gruss
Delbor

[calibra301]

Neee….da soll ein Min / Maxwert eingestellt werden.
Da drunter ist ein Label mit dem Value ( =Position )


Gruss
Calli

[Delbor]

Hi calibra301

TScrollbar ist ein direkter Nachkomme von TScrollingWinControl. Das heisst, du könntest dir eine Erweiterung der TScrollbar bauen und da die Protected deklarierten Mousewheel-Ereignisse von TScrollingWinControl veröffentlichen. Eine Anleitung, um Komponenten zu erweitern/abzuleiten, findest du hier.

Du könntest aber auch eine TTrackbar verwenden/erweitern. Die ist von TWinControl abgeleitet, die die Mousewheel-Events ebenfalls protected deklariert. Um Werte einzustellen, ist TTrackbareigentlich viel eher gedacht.

Gruss
Delbor