NotificationCenter Delphi，MacOS下的异常

我在德尔福的通知中心玩过

这就是代码：

procedure TForm1.BT_NotifyClick(Sender: TObject);
var
  Note: TNotification;
begin
  Note := NotificationCenter1.CreateNotification;
  try
    try
      Note.Name := 'Test-Note';
      Note.Title := 'Test-Notification';
      Note.AlertBody := 'Notification zum Testen!';
      Note.FireDate := Now;
      NotificationCenter1.PresentNotification(Note);
    except
      on E: ELocalNotificationAccess do
        ShowMessage('Eine Exception vom Typ ' + E.ClassName + ' ist aufgetreten! ' + E.Message);
    end;
  finally
    Note.Free;
  end;
end;

它在Windows10上运行良好，但当我在MacOS（10.15）上尝试它时，我得到一个类型为“ELocalNotificationAccess”的异常。此外，它还表示用户禁止访问NotificationCenter

---

有人能帮我吗？

哪个版本的Delphi？很抱歉，它是10.4版本，由于某种原因，应用程序没有正确签名（可能是macOS问题）。在项目选项、部署>资源调配中，请填写“Apple或Mac开发证书”编辑和您的Mac证书详细信息，例如：Apple Development:David Nottage（A1234BCSR）。（不是我真正的细节）我还无法测试您的解决方案，但非常感谢您的帮助。我测试了它，它工作正常。非常感谢。哪个版本的Delphi？抱歉，它是10.4，由于某种原因，应用程序没有正确签名（可能是macOS问题）。在项目选项、部署>资源调配中，请填写“Apple或Mac开发证书”编辑和您的Mac证书详细信息，例如：Apple Development:David Nottage（A1234BCSR）。（不是我真正的细节）我还无法测试您的解决方案，但非常感谢您的帮助。我测试了它，它工作正常。非常感谢。