Zitat von
Zitrone.Saft:
Und wenn ich des nu so schreibe wie du des gemacht hast
listbox1.itemindex.clear
dann kommt ein fehler:
Ja klar. Muß ja auch
Listbox1.Items.Clear; heißen.
Wenn der TMediaplayer ein Track fertig gespielt hat, feuert er ein Notify-Event.
OnNotify TMPNotifyValues
Delphi-Quellcode:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
case MediaPlayer1.NotifyValue of
nvSuccessful: ;
nvSuperseded: ;
nvAborted: ;
nvFailure: ;
end;
end;
Hier kannst du dann den nächsten Track laden und starten. Welches
NotifyValue du auswerten musst, musst du selbst herraus finden. Ich habs nicht mehr im Kopf.
Alternativ könntest du über einen Timer prüfen, ob der Track
keine Restzeit mehr hat.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (MediaPlayer1.EndPos - MediaPlayer1.Position)<=0 then
begin
// Nächsten Track in der Liste abspielen
end;
end;
Ist aber wohl eher unsauber und ungenau.
Edit:
@Blackheart: Der Link funktioniert net.
Edit II:
Ist dieses verkappte Deutsch mittlerweile modern geworden?
Ist ja in der
DP echt schlimm geworden in letzter Zeit.
