procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.MediaPlayer1.Stop;
Form1.MediaPlayer1.Eject;
FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1;
FORM1.MediaPlayer1.FileName:=FileListBox1.FileName ;
form1.MediaPlayer1.Open;
form1.MediaPlayer1.Play;
end;
И еще вопрос к тебе. Если ты реализуешь кнопку Next то почему ItemIndex-1 ???
|