Перейти к содержанию
Fire Monkey от А до Я
  • 0

Admob не могу понять...


flash1222

Вопрос

Привет всем.
Помогите разобраться.

Без добавления банера, всё открывается хорошо.
Как только добавляю Tbannerad и открываю приложение, то просто белый экран, а снизу черное окошко.

unit Unit2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.WebBrowser, FMX.StdCtrls,
  FMX.Advertising, System.DateUtils;

type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    BannerAd1: TBannerAd;
    procedure BannerAd1ActionCanBegin(Sender: TObject;
      var WillLeaveApplication: Boolean);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}




procedure TForm2.BannerAd1ActionCanBegin(Sender: TObject;
  var WillLeaveApplication: Boolean);
begin

    BannerAd1.AdUnitID := 'ca-app-pub-2074551601140941/2203732117';
    BannerAd1.LoadAd;

end;
procedure TForm2.WebBrowser1DidFailLoadWithError(ASender: TObject);
begin
          WebBrowser1.URL ;
end;
end.

dsD0pAp.png

 

 

И еще подскажите, как сделать что бы при нажатии кнопки "Назад" не закрывалось приложение сразу, а переходило на предыдущую страницу и если нету предыдущей, тогда закрыть.

Изменено пользователем flash1222
Ссылка на комментарий

Рекомендуемые сообщения

  • 0

И еще подскажите, как сделать что бы при нажатии кнопки "Назад" не закрывалось приложение сразу, а переходило на предыдущую страницу и если нету предыдущей, тогда закрыть.

 

как то так

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
   if Key = vkHardwareBack then
      // если закрывать не нужно, то
      begin
         // делай что нужно
         Key := 0;
         KeyChar := #0;
      end;
end;
Ссылка на комментарий
  • 0

Estra ответил на вопрос относительно кнопки "Назад".

Что касается баннера, возможно здесь нужно задать размеры.

Попробуйте например выставить align в mostbottom и посмотрите, что получится.

 

Вы используете процедуру BannerAd1ActionCanBegin, в теле которой загружаете баннер.

 

Описание этого события гласит: "Occurs after your user taps the advertising banner, and before the banner responds to this user action." То есть событие происходит после того как пользователь нажмет на баннер. Поэтому в Вашем коде баннер грузится только после нажатия на контейнер. Вы точно здесь ничего не путаете?

Изменено пользователем Alex7wrt
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...