Кодинг

[Baltozar]

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

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

[серега]

Бальтозар а что конкретно ты хочешь сделать? Ролик? Клип? :unsure:

[Baltozar]

серега я же написал плеер-это штукенция такая хитроумная он воспроизводит видео и аудио файлы

[Baltozar]

Да забыл еще узнать как мне нажав на кнопку перейти к файлу ворда
типа нажал и в новом окне открылся тот самый файл ворда :unsure:

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

[benedict]

Pstavi v entot svoi tsikl peremrnnuiu skajem i

procedure TForm1.PauseClick(Sender: TObject);
var i:integer;
begin
i=0;
with MediaPlayer1 do
begin
i:=i+1;
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
if i=1 then
begin
Play;" ili sho tam nada dlia togo shobi on zapel dalishe "
i=0;
end;
end;

Vrode doljno srabotati

[benedict]

P.S.: Vnaciale i =-1 a ne nuliu nu karoche ideiu ti ponial :wacko:

[benedict]

P.P.S.: i v kontse i=-1 i esho nada end; pripsati vrode vsio

[Baltozar]

Спасибо щас попробую о результате сообщю

[Baltozar]

benedict
дельфин отказывается понимать
i =-1
и все в токам роде
видимо нужно что-то другое

[Baltozar]

:angry: :angry: :angry:

[Alexy III]

Может стоит i := -1 ?
Судя по коду.

[Nivea]

Если правильно понял.........................
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
if Pause.Caption = 'Play' then
begin
Pause.Caption := 'Pause';
Play;
end
else
begin
Pause.Caption := 'Play';
MediaPlayer1.Pause;
end;
end;
end;

кстати переименуй кнопку Pause,
а то называется также как метод pause, от греха

[ALaKO]

Можно было много проще. расположить две одинаковых кнопки. одна по умолчанию hide вторая - play - show. При нажатии на паузу
begin
mediaplayer.play;
pause.show;
play.hide;
end;

и вторая кнопка - pause
begin
mediaplayer.pause;
pause.hide;
play.show;
end;

все просто.

[ALaKO]

и еще, в лист бокс лучше авто файлы добавлять из директории, набросал тут...

var
searchrec:Tsearchrec;
begin
if findfirst(ExtractFilePath(application.ExeName)+'path/*.mp3', faanyfile,searchrec)=0 then
begin
form1.listbox1.Items.Add
while (findnext(searchrec)=0) do
begin
form1.listbox1.Items.Add(d);
end;end;

[Baltozar]

Всем большушее спасибо, выручили

[Baltozar]

Хм...
Казалось бы что может быть проще, но... на этом я и застопорился.
1)Нужно по клику на кнопке открыть форму (Form2)
__________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
begin
А тут чаво???
end;
__________________________________________________
2)И по нажатию другой кнопки что бы открылось невидимое(Visible:= false)окно Memo
__________________________________________________
procedure TForm1.Button2Click(Sender: TObject);
begin
А тут чаво2 ???
end;
__________________________________________________
>>программисты хелп<<

[Alexy III]

1. Form2.showmodal();
2. Не помню. В mfc window.showwindow( SW_SHOW ) В дельфях, возможно, что-то типа того

[ALaKO]

form2.showmodal
memo1.show;

[Baltozar]

Пасибо, но есть еще вопросик
при нажатии Alt+P (в проигрывателе) должно начаться воспроизведение т.е. действие анологичное кнопке Play
__________________________________________________
procedure TForm1.PlayClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Play;
end;
end;
__________________________________________________

я разместил на форме компонент hotkey но так с ним и не разобрался.
Обьясните плиз как это делается