以下內(nèi)容是根據(jù)Delphi的幫助文件進(jìn)行試驗的，主要測試Android下的消息提醒。

首先建立一個空白的Android工程，然后在窗體中加入一個TNotificationCenter控件，如下圖：

再在uses中引用文件，如下：

usesFMX.Platform; 窗體上控件放置如下圖： ? 發(fā)送消息的代碼如下： procedure TForm2.Button2Click(Sender: TObject); varMyNotification: TNotification; begin//通過消息中心創(chuàng)建消息MyNotification := NotificationCenter1.CreateNotification;try//設(shè)置消息的名稱MyNotification.Name := 'Schedule Notification';//設(shè)置消息的內(nèi)容MyNotification.AlertBody := 'Schedule Notification:' + edtSchedule.Text;//設(shè)置圖標(biāo)標(biāo)號MyNotification.Number := 18;//設(shè)置10秒后觸發(fā)消息MyNotification.FireDate := Now + EncodeTime(0, 0, 10, 0);//將消息提交消息中心，并于指定時間觸發(fā)，直接發(fā)送用PresentNotificationNotificationCenter1.ScheduleNotification(MyNotification);finally//釋放消息接口MyNotification.DisposeOf;end; end;

運行后，點擊Schedule按鈕10秒后看到消息提示，如下圖：

當(dāng)用戶點擊消息時，觸發(fā)onReceiveLocalNotification事件，通過ANotification參數(shù)了解到客戶點擊的是哪條消息并作出處理。代碼如下：

procedure TForm2.NotificationCenter1ReceiveLocalNotification(Sender: TObject;ANotification: TNotification); begin//收到用戶對消息的操作Label1.Text := '收到' + ANotification.Name + '的消息'; end;

?

執(zhí)行結(jié)果如下圖：

注意：不要按照Help中的例子在onReceiveLocalNotification事件使用ShowMessage，在Android下不僅不能顯示，由于彈出的對話框被覆蓋，會導(dǎo)致整個程序假死。

轉(zhuǎn)載于:https://www.cnblogs.com/china1/p/3410921.html

總結(jié)

以上是生活随笔為你收集整理的Delphi XE5 for Android （十一）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。