App给自己推送消息

Posted 红鱼儿

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了App给自己推送消息相关的知识，希望对你有一定的参考价值。

procedure TMainDataModule.SendNotification(const ATitle, AAlertBody, AData: string);
var
   mNotice: TNotification;
begin
  if NotificationCenter1.Supported then
  begin
    mNotice := NotificationCenter1.CreateNotification;
    try
      mNotice.Name := kbmMWGlobal.kbmMWGenerateGUID;
      mNotice.Title := ATitle;
      mNotice.AlertBody := AAlertBody;
      mNotice.HasAction:=True;
      mNotice.AlertAction:=AData;
      // 通知
      NotificationCenter1.PresentNotification(mNotice);
    finally
      mNotice.DisposeOf;
    end;
  end;
end;

 

以上是关于App给自己推送消息的主要内容，如果未能解决你的问题，请参考以下文章