01.08.2002, 20:10
Господа Гипатские-программисты
Я пишу в дельфине плеер и вот по этому поводу есть пара вопросов:
немного запутался с кнопкой pause мне нужно чтобы при повторном нажатии воспроизведение продолжилось
вот мой код для Паузы
_______________________________________________
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
end;
end;
________________________________________________
что нужно дописать?
и второй мне нужен код для кнопни повтор при нажатии которой трек проигрывается бесконечное кол-во раз
если не трудно напшите код
__
__всем большое спасибо__
__
[ 01 августа 2002: Изменил: Baltozar ]</p>
Я пишу в дельфине плеер и вот по этому поводу есть пара вопросов:
немного запутался с кнопкой pause мне нужно чтобы при повторном нажатии воспроизведение продолжилось
вот мой код для Паузы
_______________________________________________
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
end;
end;
________________________________________________
что нужно дописать?
и второй мне нужен код для кнопни повтор при нажатии которой трек проигрывается бесконечное кол-во раз
если не трудно напшите код
__


[ 01 августа 2002: Изменил: Baltozar ]</p>