本文整理自网络,侵删。
需要组件: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 application.restore不起作用了,该如何处理
Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决
Delphi的datetostr strtodate格式灵活用法
Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换
更多相关阅读请进入《Delphi》频道 >>