![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Здрасте !
на моей форме расположен 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; помогите мне это реализовать Заранее спасибо большее! |