nächsten Song mittels OnNotify der TMediaPlayer Komponente

[ft16a]

Hmmm...Wozu jedesmal einen einen Open- DIALOG aufrufen ???
Wenn in der Liste schon Namen drinstehen...
...müßte es doch reichen, Filename gleich dem MediaPlayer zu übergeben...?!
Kleiner Test...Filenamen beim Create schon geladen...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  {1. Item in Listbox}
  ListBox1.Items.Text :=
  'c:\windows\media\Jungle Fehler.wav' ;
  {2. Item in Listbox}
  ListBox1.Items.Add('c:\windows\media\Jungle Frage.wav') ;
  {3.Item in Listbox}
  ListBox1.Items.Add('c:\windows\media\Jungle Öffnen.wav');

  {1. Item- Wert laden und öffnen}
  MediaPlayer1.Filename := Listbox1.Items[0] ;
  MediaPlayer1.open ;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
    {Das übliche: Listbox- Index um 1 hochzählen, abspielen...}
    Listbox1.ItemIndex := Listbox1.ItemIndex + 1;
    Label5.Caption := Listbox1.Items[Listbox1.ItemIndex] ;
    MediaPlayer1.FileName := Listbox1.Items[Listbox1.ItemIndex] ;
    MediaPlayer1.Open;
    ...
   {Wenn höchster Listeneintrag erreicht ist...stoppen oder was anderes tun...}
    ...
end;