delphi移动应用程序允许权限后更新权限状态

Question

我正在 Android 和 iOS 平台上开发一个 Delphi 移动应用程序，需要显示通知。当我第一次单击该按钮时，它将请求通知权限。但是，当我单击提示权限的对话框上的“允许”按钮后，通知不显示。我需要再次按下按钮才能显示通知。

有没有办法让我的应用程序在我允许应用程序的通知权限后立即获得状态？

下面是我的原型代码：

procedure TForm1.Button3Click(Sender: TObject);
begin
  var notiCenter := TNotificationCenter.Create(nil);
  notiCenter.OnPermissionRequestResult := NotificationCenterPermissionRequestResult;
  
  if notiCenter.AuthorizationStatus <> TAuthorizationStatus.Authorized then
    notiCenter.RequestPermission;
  
  if FIsNotificationAllowed then begin
    var noti := notiCenter.CreateNotification;
    try
      noti.Name := 'Button Click';
      noti.Title := 'Button Click';
      noti.AlertBody := 'Button Click';
      notiCenter.PresentNotification(noti);
    finally
      noti.DisposeOf;
    end;
  end;
end;


procedure TForm1.NotificationCenterPermissionRequestResult(Sender: TObject;
  const AIsGranted: Boolean);
begin
  if AIsGranted then FIsNotificationAllowed := true
  else FIsNotificationAllowed := false;
end;