Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

Бесконечное воспроизведение музыки   Найти похожие ветки 

 
Alex   (2003-09-25 10:37) [0]

Подскажите пожалуйста, как сделать бесконечное воспроизведение музыкального файла в MediaPlayer-e с возможностью остановки по нажатию клавиши


 
ZEE ©   (2003-09-25 11:20) [1]

var buttonstoppressed:boolean;
...
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if (MediaPlayer1.Mode=mpStopped)and
(buttonstoppressed) then MediaPlayer1.Play;
end;

procedure TfmMain.ButtonPlayClick(Sender: TObject);
begin
buttonstoppressed:=false;
MediaPlayer1.Play;
end;

procedure TfmMain.ButtonStopClick(Sender: TObject);
begin
buttonstoppressed:=true;
MediaPlayer1.Stop;
end;


примерно так


 
ZEE ©   (2003-09-25 11:22) [2]

зы: надо TfmMain на TForm1 поменять или вообще на тип своей формы - просто копировал откуда ни попадя :)


 
Alex   (2003-09-25 18:57) [3]

Спасибо! Вcе работает, только лучше бы в Borland-e предусмотрели такое и можно было бы написать "MediaPlayer.Repeat=true" :-))



Страницы: 1 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
7-93719
Владимир Березин
2003-11-10 21:49
2004.01.29
Призраки в корзине


9-93315
r0n1n
2003-07-16 03:08
2004.01.29
Модели...


1-93508
romeo
2004-01-11 12:55
2004.01.29
Как нарисовать линию с Pen.Style = psDash и Pen.Width > 1?


1-93420
jiurajhgjhgty
2004-01-16 19:53
2004.01.29
OleContainer и excel


6-93612
DAnton
2003-11-24 10:34
2004.01.29
<b>Помогите кто чем может с <u>аттачем</u>.</b>