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 10 seattle android应用程序使用toast

Delphi winapi: setlayeredwindowattributes - 设置窗口的透明

Delphi 时间到就触发事件

Delphi 用updateresource修改exe文件图标(已修正)

Delphi点击网页弹出的alert对话框的确定按钮

Delphi word转pdf两种方法

Delphi 利用Delphi监视注册表的变化

Delphi 判断timage是否为空及注意事项

Delphi 使控件变成圆角的方法

Delphi 检测是否包含字符

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

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