|
|
Регистрация | << Правила форума >> | 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; помогите мне это реализовать Заранее спасибо большее! |
#2
|
||||
|
||||
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 ??? [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#3
|
||||
|
||||
Не работает!
Попробуй у себя коопелировать! А знак - или + нужен для того что бы кнопка могла переключать вперед или назад в зависимости от знака .
|
#4
|
||||
|
||||
Sharky, X-rem и имел ввиду то, что, почему, при реализации кода для кнопки NEXT (далее) ты УМЕНЬШАЕШЬ (ItemIndex-1) индекс???
THE CRACKER IS OUT THERE |
#5
|
||||
|
||||
:-D , Сор за оффтоп. Но у мну все компилируется.
[ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |