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判断文件大小

Delphi unigui中如何监听session的开始与结束

Delphi 简单的截图代码

Delphi 获取文件修改时间

Delphi 单元文件结构

Delphi xe 遍历指定数据库，清空各表记录

Delphi 取windows登录用户名

Delphi xe5 使用 android 内置函数几个小测试

Delphi剪切板-监视剪贴板

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

转载请注明出处：木庄网络博客 » Delphi win10系统通知 NotificationCenter1 基本用法