Перейти к содержанию
Fire Monkey от А до Я
  • 0

AudioFocus


OnePeople

Вопрос

Пробую отловить AudioFocus так (нашел на просторах интернета)

Спойлер

 

type
  TAudioFocusChangeEvent = procedure(focusChange: Integer) of object;

  TMyAudioFocusChangeListener = class(TJavaLocal, JAudioManager_OnAudioFocusChangeListener)
    private
    FParent : TForm1;
    FOnAudioFocusChanged: TAudioFocusChangeEvent;
  public
    procedure onAudioFocusChange(focusChange: Integer); cdecl;
    property OnAudioFocusChanged: TAudioFocusChangeEvent read FOnAudioFocusChanged
write FOnAudioFocusChanged;
   end;

.....

procedure TMyAudioFocusChangeListener.onAudioFocusChange(focusChange: Integer);
begin
  if Assigned(FOnAudioFocusChanged) then
    begin
      FOnAudioFocusChanged(focusChange);
      Form1.Memo2.Lines.Add(focusChange.ToString);
    end;
end;

 

Безрезультатно(

 

 

 

Ссылка на комментарий

Рекомендуемые сообщения

Ответов пока нет

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...