Ich habe es gerade getestet und bei mir funktioniert es ohne Probleme so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Open;
ProgressBar1.Max := MediaPlayer1.Length;
MediaPlayer1.Play;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := MediaPlayer1.Position;
end;
Welcher Dateityp wird abgespielt (MP3, WAV, MIDI, ...)?
Tritt das Problem bei allen Musikdateien auf?
Es könnte hilfreich sein, wenn du dein ganzes Projekt (den Quelltext, evtl. + Exe) anhängen würdest, damit man das mal selbst testen kann.