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 application.restore不起作用了,该如何处理

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi 验证guid的函数

Delphi在目录中搜索文件

Delphi的datetostr strtodate格式灵活用法

Delphi 数值小数点后不保留0

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

Delphi 用dbexpress处理jpg图片

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



打赏

取消

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

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

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

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

评论

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