根据Embarcadero 的西雅图官方改动:
FMX.Notification 单元已被替换为System.Notification
.
该TNotificationCenter
组件现在支持 Windows 8 和更高版本的 Windows。这个组件也发生了一些小的变化:
- 它提供了一个 Loaded 属性来检查通知中心是否可以使用。
- 的类型
ApplicationIconBadgeNumber
已从 Word 更改为 Integer。
- 它的
Supported
方法不再需要并且已被删除。
该类TBaseNotificationCenter
已替换IFMXNotificationCenter
接口。用于实现IFMXNotificationCenter
接口的类必须成为其父类的子类TBaseNotificationCenter
并实现其父类的虚拟抽象方法。
因此,我现在如何想出显示通知:
procedure TForm_Master.showNotification(Sender: TObject);
var
MyNotification: TNotification;
begin
MyNotification := NotificationCenter1.CreateNotification;
try
MyNotification.Name := 'NotificationName';
MyNotification.AlertBody :=
'Here goes your message';
MyNotification.FireDate := Now;
// Send notification to the notification center
NotificationCenter1.ScheduleNotification(MyNotification);
finally
MyNotification.Free;
end;
end;