Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.022 c
11-1165928861
Trible
2006-12-12 16:07
2007.07.22
Наследование от TControl. Почему почему нельзя вводить переменные


15-1182277121
Dreamse
2007-06-19 22:18
2007.07.22
Посоветуйте консольную утилитку для закачивания файла на FTP


2-1182500300
First
2007-06-22 12:18
2007.07.22
Анимация


4-1170672620
vlad2
2007-02-05 13:50
2007.07.22
Размещение в памяти больших массивов


15-1182203401
SerJaNT
2007-06-19 01:50
2007.07.22
Сеть...