如何在 delphi XE10 seattle 中触发通知而不振动

Question

在 Android 应用中，代码会在应用进入后台时触发静默通知。在 Delphi XE8 中它工作正常 - 没有声音，没有振动，但它在 Delphi XE10 中表现不同 - 没有声音，但有振动 [振动在用户权限中关闭]。我怎样才能消除振动？

begin
 MyNotification := NotificationCtr.CreateNotification;
try
 MyNotification.Name := ' Name';
 MyNotification.AlertBody := 'AlertBody';
 MyNotification.Number := 0;
 MyNotification.EnableSound := false;
 MyNotification.FireDate := Now;
 NotificationCtr.ScheduleNotification(MyNotification);
finally
 MyNotification.DisposeOf;
end; 
end;

Answer 1

这被报告为错误 RSP-12396。它已在本周发布的 Seattle 10 Update 1 中修复。