Implementação da interface JAudioManager_OnAudioFocusChangeListener em Delphi XE7
Olá pessoa!
Estou tentando implementar a interface JAudioManager_OnAudioFocusChangeListener em Delphi XE7.
Ela define apenas 1 método:
Tenho uma declaração do tipo:
myTeste : TmyJAudioManagerListener;
e um procedimento para escutar essas notificações:
procedure onMyAudioFocusChange(var focusChange : integer);
Depois crio ela:
myTeste := TmyJAudioManagerListener.Create;
myTeste .onAudioFocusChange := onMyAudioFocusChange; //Tenho erro de compilação nessa linha.
Onde estou errando?
Estou tentando implementar a interface JAudioManager_OnAudioFocusChangeListener em Delphi XE7.
Ela define apenas 1 método:
TmyJAudioManagerListener = class(TJavaLocal, JAudioManager_OnAudioFocusChangeListener)
public
Constructor Create;
Destructor Destroy; Override;
procedure onAudioFocusChange(focusChange: Integer); cdecl; //Esse aqui
end;
Tenho uma declaração do tipo:
myTeste : TmyJAudioManagerListener;
e um procedimento para escutar essas notificações:
procedure onMyAudioFocusChange(var focusChange : integer);
Depois crio ela:
myTeste := TmyJAudioManagerListener.Create;
myTeste .onAudioFocusChange := onMyAudioFocusChange; //Tenho erro de compilação nessa linha.
Onde estou errando?
Carlos Phelippe
Curtidas 0