您的位置：首页 > 编程语言 > Delphi

Delphi XE5 for Android （十一）

2013-11-25 19:46 519 查看
以下内容是根据Delphi的帮助文件进行试验的，主要测试Android下的消息提醒。

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





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

uses
FMX.Platform;


窗体上控件放置如下图：





发送消息的代码如下：

procedureTForm2.Button2Click(Sender:TObject);
var
MyNotification:TNotification;
begin
//通过消息中心创建消息
MyNotification:=NotificationCenter1.CreateNotification;
try
//设置消息的名称
MyNotification.Name:='ScheduleNotification';
//设置消息的内容
MyNotification.AlertBody:='ScheduleNotification:'+edtSchedule.Text;
//设置图标标号
MyNotification.Number:=18;

//设置10秒后触发消息
MyNotification.FireDate:=Now+EncodeTime(0,0,10,0);
//将消息提交消息中心，并于指定时间触发，直接发送用PresentNotification
NotificationCenter1.ScheduleNotification(MyNotification);
finally
//释放消息接口
MyNotification.DisposeOf;
end;
end;

运行后，点击Schedule按钮10秒后看到消息提示，如下图：





当用户点击消息时，触发onReceiveLocalNotification事件，通过ANotification参数了解到客户点击的是哪条消息并作出处理。代码如下：

procedureTForm2.NotificationCenter1ReceiveLocalNotification(Sender:TObject;
ANotification:TNotification);
begin
//收到用户对消息的操作
Label1.Text:='收到'+ANotification.Name+'的消息';
end;

执行结果如下图：





注意：不要按照Help中的例子在onReceiveLocalNotification事件使用ShowMessage，在Android下不仅不能显示，由于弹出的对话框被覆盖，会导致整个程序假死。
                                            

                                        

                        
                        内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息 
                    

                    

                    

                        

                         标签： 
                                                

                        

                    


                

            


            

                
相关文章推荐

                

                
            

        

        

            

            
            

                

                    
新的分享

                    

                        
                    

                

            


            

                

                    
章节导航