博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
Delphi XE5 for Android (十一)
阅读量:5265 次
发布时间:2019-06-14

本文共 1187 字,大约阅读时间需要 3 分钟。

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

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

再在uses中引用文件,如下:

uses  FMX.Platform;
 
窗体上控件放置如下图:
 
 
发送消息的代码如下:

procedure TForm2.Button2Click(Sender: TObject);

var
  MyNotification: 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);
    //将消息提交消息中心,并于指定时间触发,直接发送用PresentNotification
    NotificationCenter1.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/ChinaEHR/p/3375014.html

你可能感兴趣的文章
使用XML传递数据
查看>>
TYVJ.1864.[Poetize I]守卫者的挑战(概率DP)
查看>>
基于CMMI的敏捷开发过程文档裁剪
查看>>
0925 韩顺平java视频
查看>>
软件需求规格说明书
查看>>
53. Maximum Subarray
查看>>
iOS-程序启动原理和UIApplication
查看>>
SpringMVC入门(二)—— 参数的传递、Controller方法返回值、json数据交互、异常处理、图片上传、拦截器...
查看>>
git的安装
查看>>
mysql 8.0 zip包安装
查看>>
Spring框架系列(三)--Bean的作用域和生命周期
查看>>
springboot + mybatis
查看>>
awk 统计
查看>>
CSS min-height 属性
查看>>
模板设计模式的应用
查看>>
实训第五天
查看>>
平台维护流程
查看>>
2012暑期川西旅游之总结
查看>>
Linux发行版的排行
查看>>
12010 解密QQ号(队列)
查看>>