Кодинг
#1
Господа Гипатские-программисты
Я пишу в дельфине плеер и вот по этому поводу есть пара вопросов:
немного запутался с кнопкой pause мне нужно чтобы при повторном нажатии воспроизведение продолжилось
вот мой код для Паузы
_______________________________________________
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
end;
end;
________________________________________________
что нужно дописать?
и второй мне нужен код для кнопни повтор при нажатии которой трек проигрывается бесконечное кол-во раз
если не трудно напшите код
__ Smile __всем большое спасибо__ Smile __

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


Сообщения в этой теме
Кодинг - от Baltozar - 01.08.2002, 20:10
Кодинг - от серега - 01.08.2002, 20:26
Кодинг - от Baltozar - 02.08.2002, 01:32
Кодинг - от Baltozar - 02.08.2002, 01:46
Кодинг - от benedict - 02.08.2002, 03:29
Кодинг - от benedict - 02.08.2002, 03:33
Кодинг - от benedict - 02.08.2002, 03:35
Кодинг - от Baltozar - 02.08.2002, 11:59
Кодинг - от Baltozar - 02.08.2002, 18:13
Кодинг - от Baltozar - 03.08.2002, 01:27
Кодинг - от Alexy III - 03.08.2002, 01:59
Кодинг - от Nivea - 03.08.2002, 03:58
Кодинг - от ALaKO - 03.08.2002, 08:43
Кодинг - от ALaKO - 03.08.2002, 08:49
Кодинг - от Baltozar - 03.08.2002, 11:52
Кодинг - от Baltozar - 09.08.2002, 20:16
Кодинг - от Alexy III - 10.08.2002, 08:41
Кодинг - от ALaKO - 10.08.2002, 09:51
Кодинг - от Baltozar - 11.08.2002, 00:29

Перейти к форуму:


Пользователи, просматривающие эту тему: 2 Гость(ей)