Playstatus eines Liedes mit Trackbar

[Ultimator]

Ich habs jetzt mit der JvtrackBar gelöst, weil nur die OnMouse-Events hat, und zwar so:

Delphi-Quellcode:

procedure TForm1.TrackBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1.Enabled := false;       //Timer ausstellen
  BASS_ChannelPause(spielstream); //Lied anhalten
end;

procedure TForm1.TrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  BASS_ChannelSetPosition(spielstream, TrackBar1.Position); //Position setzen
  BASS_StreamPlay(spielstream, false, 0); //Lied wieder fortsetzen
  Timer1.Enabled := true;                 //Timer wieder aktivieren
end;