Macapi.Notifications

Macapi.Notifications

Delphi 的简化 macOS 通知桥 #DelphiCocoaFlavored

莉莉·斯蒂尔森 // 2020

---

用法

该装置旨在与 RAD Studio 10.4 配合使用。由于 Macapi.Foundation 中的错误，它无法在旧版本中运行。如果您的应用程序未使用 Apple 开发者证书签名，则从 macOS 10.15 开始，此单元将可以工作，但由于操作系统的限制，不会调用任何通知。

时间表通知

简化的通知安排。在预定时间后触发通知；

 procedure ScheduleNotification ( const ATitle, ASubtitile, AInformation: String; 
                               const ADeliveryDate: TDateTime; 
                               const UseTimeZone: boolean = True);

• ATitle - 通知标题（如果为空，将使用应用程序名称）
• ASubtitile - 通知副标题（可选）
• AInformation - 通知正文（可选）
• ADeliveryDate - 通知发送日期
• UseTimeZone - 使用电脑的当前时区来触发通知（默认= true）

呈现通知

简化的通知呈现。立即触发通知。

 procedure PresentNotification ( const ATitle, ASubtitile, AInformation: String);

• ATitle - 通知标题（如果为空，将使用应用程序名称）
• ASubtitile - 通知副标题（可选）
• AInformation - 通知正文（可选）

示例

 // SceduleNotification // Form contains TButton.
procedure TNSNotificationsTestForm.SceduleNotificationButtonClick (Sender: TObject);
begin
  SceduleNotification( ' Notification Title ' , ' Foo Bar ' , ' Very Informative. Such Notification! ' , 
                      Now + EncodeTime( 0 , 0 , 5 , 0 ));
end ;

 // NSSavePanel // Form contains TButton and TEdit
procedure TNSNotificationsTestForm.PresentNotificationButtonClick (Sender: TObject);
begin
  PresentNotification( ' Notification Title ' , ' Foo Bar ' , ' Very Informative. Such Notification! ' );
end ;

路线图

• 通知点击处理程序