Как прибить рекламу? (TBannerAd)

[DMS]

Господа, взгляните плиз на это тестовое приложение.

Главная форма вызывает вторую форму, а та запускает рекламу. Но после закрытия второй формы и удаления ее из памяти реклама почему-то продолжает показываться. Почему так? Как окончательно прибить рекламу? Спасибо

Test.zip

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

попробовать уничтожить компонент и занилить

[DMS]

3 часа назад, Равиль Зарипов (ZuBy) сказал:

попробовать уничтожить компонент и занилить

Вот так?

procedure TAdForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(BannerAd1) then
    FreeAndNil(BannerAd1);
  Action := TCloseAction.caFree;
end;

Странно, что сама форма не уничтожает его, ведь она его владелец

[sinuke]

Вроде под Андройдом лучше не FreeAndNil, а

BannerAd1.Hide;
BannerAd1.DisposeOf;
BannerAd1 := nil;

 

Изменено 17 сентября, 2017 пользователем sinuke

[DMS]

Не помогло((

Баннер какой-то неубиваемый