Delphi 10.4.2 FMX 如何进行抬头通知？

Question

使用TNotificationCenter和TNotification创建通知时，它只会出现在通知抽屉中，不会像WhatsApp msg通知那样弹出迷你浮动框。是否有任何属性可以实现这一点？

Answer 1

您需要创建一个重要性为高的频道，并使用该频道的 ID 发送通知（通过通知的 ChannelId 属性）。设置频道的示例代码：

procedure TForm1.SetupNotificationChannel;
var
  LChannel: TChannel;
begin
  LChannel := NotificationCenter.CreateChannel;
  try
    LChannel.Id := 'MyChannel';
    LChannel.Title := LChannel.Id;
    LChannel.Importance := TImportance.High;
    NotificationCenter.CreateOrUpdateChannel(LChannel);
  finally
    LChannel.Free;
  end;
end;

NotificationCenter 是一个 TNotificationCenter 组件