Trackbar verschieben

[himitsu]

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.