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;

在特定日期和时间显示通知

使用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;

单击通知时接收事件

TNotificationCenter类具有OnReceiveLocalNotification事件。

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

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

procedure TForm1.NotificationCenter1ReceiveLocalNotification(Sender: TObject;

ANotification: TNotification);

begin

Memo1.Lines.Add(ANotification.AlertBody);

end;

推荐分享