OnePeople Опубликовано 5 сентября, 2020 Поделиться Опубликовано 5 сентября, 2020 Пробую отловить 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; Безрезультатно( Цитата Ссылка на комментарий
Вопрос
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;
Безрезультатно(
Ссылка на комментарий
0 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.