Утечка памяти в компоненте TNotificationCenter

[dmitry]

Добрый день.

 

В версии Delphi 10 Seattle обнаружил утечку памяти в проекте NotificationsProject из стандартных примеров.

 

Воспроизводится она легко:

1) при создании формы, вставляем ReportMemoryLeaksOnShutDown := True;

2) Жмем на кнопку Show. Уведомление появляется в Windows 10.

3) Закрываем проект и видим что есть не уничтоженные объекты TNotification;

 

Ярослав, как эту проблему можно исправить?

[dmitry]

Дополню, проект VCL

[Равиль Зарипов (ZuBy)]

Дополню, проект VCL

покажи код создания уведомления

[dmitry]

Код стандартный:

procedure TNotificationsForm.btnShowAnotherClick(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'Windows10Notification2';
    MyNotification.Title := 'Windows 10 Notification #2';
    MyNotification.AlertBody := 'RAD Studio 10 Seattle';

    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.Free;
  end;
end;

​

[dmitry]

Может кто-нибудь проверить, проявляется ли у Вас такая ситуация?

[dmitry]

Такая же ситуация касается и проекта FMX.

[Brovin Yaroslav]

[Отклонение] Утечка памяти в компоненте TNotificationCenter