Приложение универсального проигрывателя при воспроизведении звукового файла
Код, обеспечивающий подобную обратную связь в приложении, может быть следующим. const ModeStr: array[TMPModes] of string = (' He готово', 'Остановлено', 'Воспроизведение', 'Запись', 'Поиск', 'Пауза', 'Открыто'); ButtonStr: array[TMPBtnType] of string = ('Воспроизведение', 'Пауза', 'Стоп', 'Следующий', 'Предыдущий', 'Вперед', 'Назад', 'Запись', 'Конец'); procedure TForm1.OpenClick(Sender: TObject); begin if OpenDialog1.Execute then with MediaPlayer1 do begin FileName := OpenDialog1.FileName; Label1.Caption := 'Файл: ' + FileName; Open; Notify:=true; end; end; procedure TForm1.MediaPlayer1Notifу(Sender: TObject); begin with MediaPlayer1 do begin Label2.Caption := 'Состояние: ' + ModeStr[Mode]; {Переустановка Notify, чтобы событие произошло в следующий раз} Notify := true; end; end; procedure TForm1.FormCreate (Sender: TObject); begin with MediaPlayer1 do begin Label1.Caption := 'Файл: ' + FileName; Label2.Caption := 'Состояние: ' + ModeStr[Mode]; Notify:=true; end; end; procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); begin Label3.Caption := 'Операция: ' + ButtonStr[Button]; {Переустановка Notify, чтобы произошло событие OnNotify} MediaPlayer1.Notify := true; end;
