使用 delphi-XE6 在 Macos 上显示通知

Question

当我为 mac OSX 创建通知时。我可以设置通知的（唯一）名称，但标题不会改变。它只显示应用程序的名称。

procedure TPWTrayIcon.MacNotification(pTitle, pMessage: string);
var
 Note       : TNOtification;
 NoteCenter : TNotificationCenter;
begin
  NoteCenter:=TNotificationCenter.Create(nil);
  try
    note := NoteCenter.CreateNotification(pTitle,pMessage,Now+EncodeTime(0,0,1,0));
    try
    note.AlertAction := 'Alert';
//    note.name := pTitle;
//    note.AlertBody := pMessage;
//    note.FireDate  := Now + EncodeTime(0, 0, 1, 0);
    NoteCenter.ScheduleNotification(note);
    finally
      note.DisposeOf;
    end
  finally
    NoteCenter.Free;
  end;

Answer 1

您注意到通知的名称是应用程序名称，无法通过当前 API 更改它。无论如何，因为它获取应用程序名称，您可以尝试作为一种解决方法（一种 hack）在运行时根据需要更改应用程序名称。

如果无法在 FMX 中更改应用程序名称，恐怕目前无法更改通知的标题。

但是 Mac OS X 中的通知标题是推送它的应用程序名称，所以我认为在 Mac OS X 规范中是这样定义的。