delphi xe10 消息操作

//消息提醒(从手机屏幕顶部向下滑动,出现的提示消息)
NotificationC: TNotificationCenter; 
procedure TNotificationsForm.btnSendNotificationImmediatelyClick(
  Sender: TObject);
var
  Notification: TNotification;
begin
  { verify if the service is actually supported }
  if NotificationC.Supported then
  begin
    Notification := NotificationC.CreateNotification;
    try
      Notification.Name := MyNotification;
      Notification.AlertBody := Delphi for Mobile is here!;
      Notification.FireDate := Now; //可修改发送消息时间
      { Send notification in Notification Center }
      NotificationC.ScheduleNotification(Notification);
      { also this method is equivalent }
      // NotificationService.PresentNotification(Notification);
    finally
      Notification.DisposeOf;
    end;
  end
end;
  if NotificationC.Supported then
    NotificationC.CancelNotification(MyNotification); //取消消息
    NotificationC.CancelAll; //取消所有消息

 

delphi xe10 消息操作

上一篇:使用代码操作windows防火墙的启用与关闭


下一篇:vim、gvim 在 windows 下中文乱码的终极解决方案