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 tadoquery的用法

Delphi取整函数

Delphi 检查字符串是不是 包含 中文和获取中文字符个数

Delphi 通过有道接口实现翻译

Delphi调用http接口上传文件

Delphi 定时鼠标模拟点击

Delphi 关闭所有正在运行的程序

Delphi 2009 泛型容器单元(generics.collections)[3]: tstack<t>

Delphi更新本地时间

Delphi 打开资源管理器并定位到指定目录下的文件

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

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