相关资料：

1.官网实例：http://docwiki.embarcadero.com/RADStudio/XE5/en/Mobile_Tutorial:_Using_the_Notification_Center_(iOS_and_Android)

 

结果：

1.二个按钮可以新建消息提醒，最小化也是新建消息提醒。

2.程序必须最小化后才能点击消息提醒Label2才会有反映。

 

实例代码：

1 unit Unit1;  2   3 interface  4   5 uses  6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,  8   FMX.Notification, FMX.Controls.Presentation, FMX.StdCtrls,  9   FMX.Platform;//需要引入 10  11 type 12   TForm1 = class(TForm) 13     NotificationCenter1: TNotificationCenter; 14     Button1: TButton; 15     Button2: TButton; 16     Label1: TLabel; 17     Label2: TLabel; 18     Button3: TButton; 19     procedure Button1Click(Sender: TObject); 20     procedure Button2Click(Sender: TObject); 21     procedure Button3Click(Sender: TObject); 22     procedure FormCreate(Sender: TObject); 23     procedure NotificationCenter1ReceiveLocalNotification(Sender: TObject; 24       ANotification: TNotification); 25   private 26     flag: Boolean; 27     function HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; 28     {
     Private declarations } 29   public 30     {
     Public declarations } 31   end; 32  33 var 34   Form1: TForm1; 35  36 implementation 37 {
    $R *.fmx} 38 {
    $R *.NmXhdpiPh.fmx ANDROID} 39  40 //延时新建一个消息提醒 41 procedure TForm1.Button1Click(Sender: TObject); 42 var 43   MyNotification: TNotification; 44 begin 45   //通过消息中心创建消息 46   MyNotification := NotificationCenter1.CreateNotification; 47   try 48     MyNotification.Name := '消息的名称'; //设置消息的名称 49     MyNotification.AlertBody := '消息的内容'; //设置消息的内容 50     MyNotification.Number := 18;//设置图标标号 51     MyNotification.FireDate := Now + EncodeTime(0,0, 10, 0); //设置 10 秒后触发消息 52     //将消息提交消息中心，并于指定时间触发 53     NotificationCenter1.ScheduleNotification(MyNotification); 54     Label2.Text := ''; 55   finally 56     MyNotification.DisposeOf; //释放消息接口 57   end; 58 end; 59  60 //即时新建消息提醒 61 procedure TForm1.Button2Click(Sender: TObject); 62 var 63   MyNotification: TNotification; 64 begin 65   MyNotification :=NotificationCenter1.CreateNotification; //通过消息中心创建消息 66   try 67     MyNotification.Name:= '消息的名称'; //设置消息的名称 68     MyNotification.AlertBody := '消息的内容'; //设置消息的内容 69     MyNotification.Number := 18;//设置图标标号 70     MyNotification.EnableSound := True;//有提示音 71     NotificationCenter1.PresentNotification(MyNotification);  //将消息提交消息中心 72     Label2.Text := ''; 73   finally 74     MyNotification.DisposeOf; //释放消息接口 75   end; 76 end; 77  78 //取消消息提醒 79 procedure TForm1.Button3Click(Sender: TObject); 80 begin 81   NotificationCenter1.CancelNotification('消息的名称'); 82 end; 83  84 //主要是为程序挂接事件 85 procedure TForm1.FormCreate(Sender: TObject); 86 var 87   aFMXApplicationEventService: IFMXApplicationEventService; 88 begin 89   flag := True; 90   if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(aFMXApplicationEventService)) then 91     aFMXApplicationEventService.SetApplicationEventHandler(HandleAppEvent) 92   else 93   flag := False; 94 end; 95  96 //将要挂接在程序上的事件，此事件是最小化时新建一个消息提醒 97 function TForm1.HandleAppEvent(AAppEvent: TApplicationEvent; 98   AContext: TObject): Boolean; 99 var100   MyNotification: TNotification;101 begin102   if flag = False then103     Exit;104   case AAppEvent of105     TApplicationEvent.aeEnteredBackground://监测，当程序后台运行时执行以下事件106     begin107       //通过消息中心创建消息108       MyNotification := NotificationCenter1.CreateNotification;109       try110         MyNotification.Name :='消息的名称'; //设置消息的名称111         //设置消息的内容112         MyNotification.AlertBody := '消息的内容';113         MyNotification.Number := 18; //设置图标标号114         MyNotification.EnableSound := True;115         NotificationCenter1.PresentNotification(MyNotification); //将消息提交消息中心116         Label2.Text := '';117       finally118         MyNotification.DisposeOf; //释放消息接口119       end;120     end;121   end;122   Result := True;123 end;124 125 //程序最小化后，点消提醒时，发生此事件126 procedure TForm1.NotificationCenter1ReceiveLocalNotification(Sender: TObject;127   ANotification: TNotification);128 begin129   //收到消息后程序的操作130   Label2.Text := '收到' + ANotification.Name + '的消息！';131 end;132 133 end.