XiTrackbar als Playertrackbar

[Nils_13]

Hi,

ich bin gerade dabei den schlechten DarkPlayer neu zu programmieren. Damit der Skin auch von den Farben her, Farbverlauf - ja/nein, etc. eingestellt werden kann, benutze ich die XiControls (zu finden sind die Komponenten hier).

Bei den alten Versionen des Players habe ich, damit man in den Liedern per Trackbar an die gewünschte Stelle im Lied springen kann, eine kleine TrackBar geschrieben, die einfach MouseDown, MouseUp und MouseMove enthielt. Aber bei der XiTrackbar gibt es natürlich kein MouseDown und MouseUp mehr. Dadurch kann ich die Trackbar nicht mehr programmieren:

Timer, der die TrackBar laufen lässt (vorher natürlich Maxwert der TrackBar berechnen).

Delphi-Quellcode:

procedure TfrmMain.ttbTimer(Sender: TObject);
begin
  if Flag then
  begin
    if Player.status = 1 then
    begin
      tb1.Position := ...
    end;
  end;
end;

Jetzt brauche ich aber MouseDown, damit ich Flag auf False setzen kann und bei MouseUp Flag wieder auf True setzen kann.


Geht das vielleicht auch irgendwie mit OnChange oder allgemein anders ?