[Sharky]

Здрасте !
на моей форме расположен
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;
помогите мне это реализовать
Заранее спасибо большее!

[X-rem]

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 ???

[Sharky]

Попробуй у себя коопелировать! А знак - или + нужен для того что бы кнопка могла переключать вперед или назад в зависимости от знака .

[4kusNick]

Sharky, X-rem и имел ввиду то, что, почему, при реализации кода для кнопки NEXT (далее) ты УМЕНЬШАЕШЬ (ItemIndex-1) индекс???

[X-rem]

:-D , Сор за оффтоп. Но у мну все компилируется.