本文整理自网络，侵删。
需要组件：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》频道 >>
