Отображение песен в Label.

[!Анатолий]

Здравствуйте. Помогите пожалуйста.У меня не получается отобразить в Label песню при воспроизведении в плеере.
При этом я использовал компоненты MediaPlayer,JvTransparentButton,Lab el,FileListBox,Timer и написал следующий код.


procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if not JvTransparentButton1.Down
then JvTransparentButton1.Down := True;
Label1.Caption:=FileListBox1.Items[FileListBox1.itemIndex];
Play;
end;
Заранее спасибо.

[mihali4]

Что за бред?
Вот присвоение:
Label1.Caption:=FileListBox1.FileNa me;

[Stanislav]

Да действительно однакурсник называеться мог бы позвонить и спросить я эту часть проэкта уже давно зделал.... ну толяныч хех

[!Анатолий]

Не могли бы вы пояснить.Все прекрасно работает, но при переключении песни остается название старой песни и указывается полный путь к ней.
Спасибо.

[mihali4]

при переключении песни остается название старой песни

procedure TMyForm.FileListBox1Change(Sender: TObject);
begin
Label1.Caption:=FileListBox1.FileName;
end;

полный путь

ExtractFileName function

[Stanislav]

mihali4
ему этот код не подойдет он переключает песню с помощью кнопки а не путем выбора из лист бох название песни будет таким же я уже проверил..... я думаю может это подойдет: нужно объевить переменную в начале скажем name:string;

а далее

begin
nam:=nam-1;
track:=track-1;
if track < 0 then begin track:=filelistbox1.Count-1;
nam:=filelistbox1.Count-1;
Label1.Caption:=fileListBox1.Items[fileListBox1.itemIndex+nam];

ну это может прокатить при пролистовании вперед назад нужно подругому.....

хотя я все это не проверял вовсе попробуй

[mihali4]

ему этот код не подойдет он переключает песню с помощью кнопки а не путем выбора из лист бох

Так а где код на кнопке? Что, гадать сидеть, что он там изобрел?

[GAGARIN-NEW]

Да всё правильно он написал !

[Stanislav]

Спорить с вами ребята я не буду он то все правильно написал только вот Анатолий не уточнил что переключает кнопочкой.........

а я дапустил ошибочку что
name надо integer присвоить а не string вот так:

begin
nam:=nam+1;
// Трэк вперед
track:=track+1;
if track = filelistbox1.Count then begin track:=0;
nam:=0;
end;
Label1.Caption:=fileListBox1.Items[fileListBox1.itemIndex+nam];
end;

Тогда встает вопрос как назад то может так
nam:=nam-1 ?

[Stanislav]

Сообщение от GAGARIN-NEW

Да всё правильно он написал !

А где вы увидили что я сказал что он написал не правильно? я сказал что для его случая етот код не подойдет но что он не исправен....... такого извените не было.....