Как сделать проверку на воспрозиведение

[TUberwer]

Всем привет, кто может помочь?
У меня есть MediaPlayer, и мне нужно сделать проверку на воспроизведение на нем чего-либо.
Как это сделать?

[саша40]

условиями: if then else или case of.

[TUberwer]

Ну это я знаю, я не знаю что именно писать в ()

if(MediPlayer1.Воспроизведение := 1) then
begin
бла-бла-бла
end;

[саша40]

Это не php, и не mvs. Тут пишут без скобок. Если у тебя несколько, то пиши со скобками и используй or между заданными условиями.

[TUberwer]

Сообщение от саша40

Это не php, и не mvs. Тут пишут без скобок. Если у тебя несколько, то пиши со скобками и используй or между заданными условиями.

Опять повторю: Может хватит посты набивать?
По теме помочь не можешь, значит не пиши ничего...

[Stilet]

Запрограммируй его событие OnNotify

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin
  with Sender as TMediaPlayer do
  begin
    If Mode=mpPlaying	then что-то проигрывается
    Notify := True;
  end;
end;

[TUberwer]

Сообщение от Stilet

Запрограммируй его событие OnNotify

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin
  with Sender as TMediaPlayer do
  begin
    If Mode=mpPlaying	then что-то проигрывается
    Notify := True;
  end;
end;

а как тут установить интервал через который будет проигрываться звук?

[zumm]

TUberwer, запускай его по таймеру.

[offtop]
Посмотрел я твои последние посты - ты бы хоть сначала стандарты языка изучил, а потом уже глубже лез.
[/offtop]

[TUberwer]

Сообщение от zumm

TUberwer, запускай его по таймеру.

а как именно?
процедуру то я написал, а как ее вызвать в таймере?

аа.. нужно вызывать так же само звук по таймеру, просто дополнительно прописать ту процедуру?

а что тогда писать тут?

then что-то проигрывается?

[Stilet]

Вот теперь я не пойму для чего все это нужно...