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 西雅图正确实施通知?
注意:iOS
和Android
都必须运行。
根据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;
在我的项目中尝试实施 Notifications 时,Delphi 西雅图无法正确引用 FMX.Notification
。
这是我得到的:
[DCC Fatal Error] UnitMain.pas(27): F2613 Unit 'FMX.Notification' not found.
然后它会自动引用 System.Notification
,但是当我尝试使用此 class 中的对象时它会崩溃我的 Android 应用程序。
如何在 Delphi 西雅图正确实施通知?
注意:iOS
和Android
都必须运行。
根据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;