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.

 

 

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

Изменено 22 апреля, 2015 пользователем flash1222

[estra]

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

 

как то так

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;

[Alex7wrt]

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

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

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

 

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

 

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

Изменено 23 апреля, 2015 пользователем Alex7wrt