Delphi 西雅图无法引用默认 FMX class

Delphi Seattle cannot reference default FMX class

在我的项目中尝试实施 Notifications 时,Delphi 西雅图无法正确引用 FMX.Notification

这是我得到的:

[DCC Fatal Error] UnitMain.pas(27): F2613 Unit 'FMX.Notification' not found.

然后它会自动引用 System.Notification,但是当我尝试使用此 class 中的对象时它会崩溃我的 Android 应用程序。

如何在 Delphi 西雅图正确实施通知?

注意:iOSAndroid都必须运行。

根据Embarcadero's official Seattle changes

FMX.Notification 单位已被 System.Notification 取代。

TNotificationCenter 组件现在支持 Windows 8 和更新的 Windows 版本。该组件也进行了一些小改动:

  • 它提供了一个加载属性来检查通知中心是否准备好使用。
  • ApplicationIconBadgeNumber 的类型已从 Word 更改为 Integer。
  • 它的 Supported 方法不再需要,已被删除。

TBaseNotificationCenter class 已替换 IFMXNotificationCenter 界面。用于实现 IFMXNotificationCenter 接口的 类 必须成为 TBaseNotificationCenter 的子 class 并且实现其父 class.[=20= 的虚拟抽象方法]


特此说明我现在是如何显示通知的:

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;