Äh, das ist wegen einem Bug so. Der Bug entsteht durch das OnChangeEvent der Trackbar wenn
der Player über die Trackbar "seine" aktuelle Position setzt.
Normalerweise müsste man noch das Trackbar.OnChangeEvent überschreiben oder so etwas...
// Edit:
Eine Lösung:
Delphi-Quellcode:
procedure TForm1.GeneralTimerTick;
begin
if BassdllPlayer1.Status = sndPLAYING then
begin
TrackBar1.SelStart := BassdllPlayer1.GetSongTimeInfo(stUp).asInteger;
TrackBar1.SelEnd := BassdllPlayer1.GetSongTimeInfo(stUp).asInteger;
TrackBar1.Tag := -1; // <--<< diese Zeile einfügen
TrackBar1.Position := BassdllPlayer1.Position;
TrackBar1.Tag := 1; // <--<< diese Zeile einfügen
end;
// ...
procedure TForm1.TrackBar1Change(Sender: TObject);
begin // Change Song Pos
if TrackBar1.Tag > 0 then // <--<< diese Zeile einfügen
BassdllPlayer1.Position := TrackBar1.Position;
end;