Permission pour notifications
Bonjour,
Le sample fourni par Embarcadero montre comment acquérir la permission en passant par un TListAction, ce qui est vraiment simple à utiliser
Code:
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 ?
