Delphi 10 Seattle中使用本地通知，请使用TNotificationCenter组件

本文整理自网络，侵删。

 
在Delphi 10 Seattle中使用本地通知，请使用TNotificationCenter组件。

TNotificationCenter支持以下操作系统。
使用方法
在窗体上放置一个TNotificationCenter组件。

通知中心1

立即查看通知
使用TNotificationCenter类的PresentNotification方法。
在参数中设置要通知的信息。

procedure TForm1.Button1Click(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    //通知唯一标识符
    MyNotification.Name := 'MyNotification';
    //通知的题目
    MyNotification.Title := '通知标题';
    //通知内容
    MyNotification.AlertBody := '通知内容';
    //立即显示通知
    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.Free;
  end;
end;
在特定日期和时间显示通知
使用TNotificationCenter类的ScheduleNotification方法。
在参数中设置要通知的信息。

procedure TForm1.Button1Click(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try

    MyNotification.Name := 'MyNotification';

    MyNotification.Title := '通知标题';

    MyNotification.AlertBody := '通知内容';
    //通知发生时间
    MyNotification.FireDate := IncSecond(Now, 8);
    //将要发送的本地通知在特定的日期和时间安排
    NotificationCenter1.ScheduleNotification(MyNotification);
  finally
    MyNotification.Free;
  end;
end;
单击通知时接收事件
TNotificationCenter类具有OnReceiveLocalNotification事件。

单击通知时，将发生此事件。

下面的代码在单击通知时显示单击的通知的文本。

procedure TForm1.NotificationCenter1ReceiveLocalNotification(Sender: TObject;
  ANotification: TNotification);
begin
  Memo1.Lines.Add(ANotification.AlertBody);
end;
 

相关阅读 >>

Delphi 用api函数抓取屏幕图像

Delphi richedit文字背景色的处理

Delphi之如何快速开发原生activex控件

Delphi中如何将一整个文件读入内存

Delphi 如何将bitmap位图与base64字符串相互转换

Delphi strtohexstr 字符串转换hex

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi字符串隐藏

Delphi查找程序坐标 获取鼠标 模拟鼠标

Delphi settimer 功能：定时api

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 10 Seattle中使用本地通知，请使用TNotificationCenter组件