Текущий архив: 2007.07.22;
Скачать: CL | DM;
Вниз
перемотка Найти похожие ветки
← →
медиатор (2007-06-26 00:24) [0]Доброго времени суток! Скажите как отследить что медиаплеер1 закончил воспроизведение и если так то перейти на следующий трек в листбоксе(с перескоком тоже проблема)? Спасибо?
← →
Nokia 6600 (2007-06-26 02:48) [1]> [0] медиатор (26.06.07 00:24)
Ну что нить примерно так:procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
if NotifyValue = nvSuccessful then begin
if ListBox1.ItemIndex=ListBox1.Count-1 then ListBox1.ItemIndex:=0
else ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
FileName:=ListBox1.Items[ListBox1.ItemIndex];
Open;
Play;
Notify := True;
end;
end;
← →
Nokia 6600 (2007-06-26 02:49) [2]> Спасибо?
Пажалуйста?
:)
← →
медиатор (2007-06-26 10:40) [3]спасибо! но при компиляции на строке if notifyvalue = nvSuccesful then... вылетают ошибки undeclared identifier "nvSuccsful" и incompatible types. хелп.
← →
медиатор (2007-06-26 10:46) [4]все! разобрался! вопрос снят.
← →
медиатор (2007-06-26 10:46) [5]все! разобрался! вопрос снят.
Страницы: 1 вся ветка
Текущий архив: 2007.07.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
