Неправильно что то :(
Здрасте !
на моей форме расположен
FlistBox и MediaPlayer1 по нажатию на кнопку файлЛист
Бокс должен передвинуться на 1 ячейку вниз и MediaPlayer1 должен заиграть что выделено на FListBox как кнопка некст на всех
MP3 проигрывателях
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.MediaPlayer1.Stop;
FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1;
FORM1.MediaPlayer1.FileName:=FileListBox1.FileName ;
form1.MediaPlayer1.Play;
end;
помогите мне это реализовать
Заранее спасибо большее!
|