Du hättest mit deinen Schüssen aus der Hüfte Billy the Kid erledigt....
Bis auf eine fehlende ) war es perfekt.
So klappt es:
Delphi-Quellcode:
procedure TForm1.NotificationCenter1PermissionRequestResult(Sender: TObject;
const AIsGranted: Boolean);
begin
if not AIsGranted then
begin
TThread.Synchronize(nil,
procedure
begin
TDialogService.ShowMessage('Die App kann Dir keine Nachrichten senden, da die erforderliche Berechtigung dazu nicht erteilt wurde.');
end);
end;
end;
Vielen Dank.