Mediaplayer Problem: Lied mit play abspielen, nicht mit clic

[gmc616]

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.