|
|
导航: |
论坛 -> 移动应用开发
斑竹:flyers,iamdream |
|
作者: |
ozhy1 (ozhy1) |
★☆☆☆☆ |
-
|
普通会员 |
|
2018/3/13 10:17:24 |
标题: |
|
加入我的收藏 |
楼主: |
procedure TForm1.Button1Click(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, 1, 0); //将消息提交消息中心,并于指定时间触发,直接发送用PresentNotification NotificationCenter1.ScheduleNotification(MyNotification); finally //释放消息接口 MyNotification.DisposeOf; end; end;
----------------------------------------------
沈阳- |
|