Discussion :

[PetitBoutDeCode]

Bonjour,

Le sample fourni par Embarcadero montre comment acquérir la permission en passant par un TListAction, ce qui est vraiment simple à utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.ListActionExecute(Action: TBasicAction;
  var Handled: Boolean);
begin
  if NotificationCenter1.AuthorizationStatus <> TAuthorizationStatus.Authorized then
  begin
    Handled := True;
    FPendingAction := Action;
    NotificationCenter1.RequestPermission;
  end;
end;

Par contre ce code semble fonctionner uniquement lorsque l'utilisateur y arrive pour la première fois ; quand l'utilisateur a déjà accepté je comprends, cependant après un refus si je repasse par la fonction Delphi ne redemande pas et considère d'office que c'est non, donc pour le modifier il faut que je retourne dans les paramètres du téléphone/application/autorisations.

Est-ce normal ? Si oui, pouvons nous "Resetter" les permissions pour avoir la boîte de dialogue à nouveau ?