Normalerweise müsste es so gehen.
procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
begin
if opendialog1.Execute then
for i:= 0 to opendialog1.Files.Count -1 do
begin
listbox1.Items.Add(opendialog1.Files [i]);
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
i:Integer;
begin
i:=listbox1.ItemIndex ;
Mediaplayer1.Close ;
mediaplayer1.FileName:=listbox1.Items.Strings [i];
mediaplayer1.Open ;
end;
Und wenn das auch nicht funktioniert dann weis ich auch nicht.
