procedure TForm1.BitBtn6Click(Sender: TObject); var i:Integer; begin OpenDialog1.Execute; for i:=0 to OpenDialog1.Files.Count-1 do begin MediaPlayer1.FileName:=OpenDialog1.Files; MediaPlayer1.Open; end; end; что хоть тут не так почему не воспроизводит все выделенные файла а играет только один
Djon19836O, ну всё пральна, медиа плеер не может сразу читать все files опендиалога, поэтому открывает последний. Ты ваще не в том направлении роешь, те необходимо загрузить все files опендиалога в listbox и оттуда уже при двойном клике по значению ячейки с номером index давать медиаплееру воспроизвести файл
21 фев 2009 в 21:18