Delphi XE5 for Android （十一）

以下内容是根据Delphi的帮助文件进行试验的，主要测试Android下的消息提醒。

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

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

usesFMX.Platform;

窗体上控件放置如下图：

发送消息的代码如下：

procedure TForm2.Button2Click(Sender: TObject);
varMyNotification: TNotification;
begin//通过消息中心创建消息MyNotification := NotificationCenter1.CreateNotification;try//设置消息的名称MyNotification.Name := 'Schedule Notification';//设置消息的内容MyNotification.AlertBody := 'Schedule Notification:' + edtSchedule.Text;//设置图标标号MyNotification.Number := 18;//设置10秒后触发消息MyNotification.FireDate := Now + EncodeTime(0, 0, 10, 0);//将消息提交消息中心，并于指定时间触发，直接发送用PresentNotificationNotificationCenter1.ScheduleNotification(MyNotification);finally//释放消息接口MyNotification.DisposeOf;end;
end;

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

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

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

执行结果如下图：

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

转载于:https://www.cnblogs.com/china1/p/3410921.html

Delphi XE5 for Android （十一）相关推荐

Delphi XE5 for Android （八）
delphi xe5 编译的程序在启动时会有短暂的黑屏出现,这个现象产生是因为启动首个activity时会加载一些初始化数据,整个时间大约在2~3秒,如何处理? 网上有些资料,这里主要参考和整理了CS ...
Delphi XE5 for Android （十）
我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完成服务器的设计: (1)利用向导完成DataSnap服务器的框架,如下图: 由于是实验, ...
Delphi XE5 for Android （三）
在VCL下,常用的询问对话框包括 procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject); begin if Application. ...
delphi10android保存数据,DELPHI XE5 Android – SDCard的SAVE / LOAD文件
我正在使用Delphi XE5进行 Android开发. 我喜欢将TStringList保存并加载到SDCard上的文本文件中. 当我将TStringList保存到文件时,一切正常.保存后我可以调用L ...
xe5 android 模拟器,Delphi xe5如何使用Bluestacks模拟器。
Delphi xe5如何使用Bluestacks模拟器. 首先,关于这个模拟器问题比较纠结,这是一个关于adb的问题. Delphi XE5会自动识别模拟器和真机,但是你必须先打开模拟器在打开Delp ...
Delphi XE5 常见问题解答
Delphi XE5 常见问题解答有关于新即时试用的问题吗?请看看 RAD Studio 即时试用常见问答. 常见问题什么是 Delphi? Embarcadero? Delphi? XE5 是易 ...
垂死挣扎还是涅槃重生 -- Delphi XE5 公布会归来感想
Delphi 是一个基本上被我遗忘的工具, 要不是在使用RapidSql , 我是收不到Embarcadero 公司发出的邀请来參加Delphi XE5的公布会的. 有人可能要问为什么是Embarca ...
垂死挣扎还是涅槃重生 -- Delphi XE5 发布会归来感想
Delphi 是一个基本上被我遗忘的工具, 要不是在使用RapidSql , 我是收不到Embarcadero 公司发出的邀请来参加Delphi XE5的发布会的. 有人可能要问为什么是Embarca ...
Delphi xe5如何使用Bluestacks模拟器。
首先,关于这个模拟器问题比较纠结,这是一个关于adb的问题. Delphi XE5会自动识别模拟器和真机,但是你必须先打开模拟器在打开Delphi IDE(Delphi开发环境),否则还得麻烦一会儿. ...

Delphi XE5 for Android （十一）

Delphi XE5 for Android （十一）相关推荐

最新文章

热门文章