Oh jemine... danke Luckie!! Es muss natürlich
MediaPlayer1.Play;
heißen..
@ Matze:
Habe jetzt
MediaPlayer1.Open;
eingefügt und habe dann dies:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fIndex: integer;
begin
if ListBox1.Items.Count > 0 then begin
for fIndex := 0 to ListBox1.Items.Count - 1 do begin
MediaPlayer1.FileName := ListBox1.Items.Strings[fIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;
end;
Das hat dann fehlerfrei funktioniert, aber fragt mich nicht, wieso..... Kann das sein, dass er unbedingt
ListBox1.Items.Strings[fIndex];
braucht?