Trackbar verschieben

[juelin]

Hallo,
ich habe Windows 10 und Delphi 11.2.
In einem Programm habe ich eine TrackBar.
Nun gibt es beiden Events der TrackBar leider kein OnMouseDown und OnMouseUp.
Ich möchte aber, das solange der Schieber der TrackBar verschoben wird (linke Maustaste ist gedrückt)
in der Prozedure OnChange der TrackBar keine Aktion ausführen.
Habe schon hier im Forum geschaut, aber nichts passendes gefunden.
Also nochmal: ich will wissen, wenn die Maustaste auf dem Schieberegler gedrückt ist.
Kann mir da jemand helfen, am liebstem mit Beispiel-Source.
Danke und Gruß
Jürgen