Delphi-Quellcode:
// OnChange ... hier ginge es auch, aber du bekommst das Ende nicht mit
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Memo1.Lines.Add('Change ' + TrackBar1.Position.ToString);
end;
// OnTracking (prinzipiell weiß die Trackbar davon, da sie sich im Windows 11 grau malt, aber k.A. ob und wie man diesen Status abfragen könnte)
procedure TForm1.TrackBar1Tracking(Sender: TObject);
begin
if (GetKeyState(VK_LBUTTON) < 0) {or (GetKeyState(VK_LEFT) < 0) or (GetKeyState(VK_RIGHT) < 0)} then // auch VK_UP und VK_DOWN
Memo1.Lines.Add('Tracking ' + TrackBar1.Position.ToString + ' MOVING')
else
Memo1.Lines.Add('Tracking ' + TrackBar1.Position.ToString);
end;
Bewegen mit den Pfeiltasten?
Vielleicht auch nur einmal GetKeyboardState anstatt mehrerer GetKeyState ... k.A. was schneller/einfacher ist.