procedure Tfrmputeviditel.NotifyProc(Sender: TObject);
 begin
   with Sender as TMediaPlayer do
    begin
     case Mode of
       mpStopped: frmputeviditel.tmrOsnovnoi.Enabled:=True;
     end;
    Notify := True;
   end;
 end;

а на tmrosnovnoi

Delphi

  mpOsnovnoi.Close;
  btnDiplay.Visible:=False;
  imgPusk.Visible:=False;
  imgPaus.Visible:=False;
  imgVihod.Visible:=False;

и есть

Delphi

procedure Tfrmputeviditel.timerStopTimer(Sender: TObject);
begin
if(mpOsnovnoi.Mode = TMPModes.mpStopped) then
begin
btnDisplay.Visible := false; //дисплей скрывается
Flag:=True;
end;
end;

возникает ошибка

что не так делаю?

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.04.2013, 21:33

Ответы с готовыми решениями:

if с edit и mediaplayer
if...

If MediaPlayer.stop ?
Подскажите как сделать : на timer поставить if MediaPlayer1.stop остановлен then ...

Звук, OpenDialog, MediaPlayer
Привет, как при помощи компонентов OpenDialog, MediaPlayer, воспроизвести звук при наведении на...

MediaPlayer Путь к файлу
Народ, снова нужна ваша помощь Мне в моем плеере нужно сделать чтобы при открытии файла, путь к...

	15.04.2013, 21:33

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.04.2013, 21:33

Помогаю со студенческими работами здесь

Регулировка громкости в MediaPlayer
Помогите пожалуйста.... Мне нужно сделать в программе, что бы когда пользователь двигал колесо...

Mediaplayer присвоить filename
как медиаплееру присвоить filename на конкретный трек который находится в папке программыprocedure...

Проверка воспроизводящегося трека в MediaPlayer
Не понимает эту строку: if Form1.MediaPlayer1.Mode = mpPlaying then Form1.MediaPlayer1.Stop; ...

MediaPlayer, воспроизвести mp3-файл
Как воспроизвести mp3 файл в MediaPlayer ?

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх