Delphi win10系统通知 NotificationCenter1 基本用法


本文整理自网络,侵删。

 

需要组件:NotificationCenter1

 

 

演示:

 

procedure TNotificationsForm.btnCancelAllClick(Sender: TObject);

begin

  NotificationCenter1.CancelAll;

end;

 

procedure TNotificationsForm.btnCancelAnotherClick(Sender: TObject);

begin

  NotificationCenter1.CancelNotification('Windows10通知2');

end;

 

procedure TNotificationsForm.btnCancelClick(Sender: TObject);

begin

  NotificationCenter1.CancelNotification('Windows10通知');

end;

 

procedure TNotificationsForm.btnShowAnotherClick(Sender: TObject);

var

  MyNotification: TNotification;

begin

  MyNotification := NotificationCenter1.CreateNotification;

  try

    MyNotification.Name := 'Windows10通知2';

    MyNotification.Title := 'Windows 10 通知 #2';

    MyNotification.AlertBody := 'RAD Studio 10 Seattle';

 

    NotificationCenter1.PresentNotification(MyNotification);

  finally

    MyNotification.Free;

  end;

end;

 

procedure TNotificationsForm.btnShowClick(Sender: TObject);

var

  MyNotification: TNotification;

begin

  MyNotification := NotificationCenter1.CreateNotification;

  try

    MyNotification.Name := 'Windows10通知';

    MyNotification.Title := 'Windows 10 通知 #1';

    MyNotification.AlertBody := 'RAD Studio 10 Seattle';

 

    NotificationCenter1.PresentNotification(MyNotification);

  finally

    MyNotification.Free;

  end;

end;

 

 

procedure TNotificationsForm.NotificationCenter1ReceiveLocalNotification(

  Sender: TObject; ANotification: TNotification);

begin

  mmLog.Lines.Add('收到的通知: ' + ANotification.Name);

end;

 

相关阅读 >>

Delphi 最快字符串查找(匹配)算法

Delphi 动态创建一个ipedit控件

dll 的静态调用实例代码

Delphi 最简单的升级下载代码

Delphi中窗体的方法

Delphi 将对象转换为json字符串或tjsonobject

Delphi 一个不错的枚举进程例子

Delphi 由类名获取父类

Delphi获取本机或者网关的互联网ip地址

Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...