Macapi.Notifications
v1.0.0
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);
簡化的通知呈現。立即觸發通知。
procedure PresentNotification ( const ATitle, ASubtitile, AInformation: String);
// 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 ;