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

alewka006

Пользователи
 Профиль  Обзор контента

  • Постов

    24

  • Зарегистрирован

  • Посещение

 Тип контента 

Сообщения, опубликованные alewka006

    Delphi XE8 и выше проблема с Provisioning Android-Application Store

    в Финальная (Release) сборка пакета приложения

    Опубликовано

    Всем доброго вечера.

     

    На Delphi XE8 и выше имею проблему!

     

     В Projects - options / Provisioning Build Type выбираю Android-Application Store,

     

                создаю keystore, alias как обычно - нажимаю OK,

     

    Захожу опять в Projects - options / Provisioning Build Type стоит - Android development. 

           ставлю опять Android-Application Store - появляются настройки мои keystore, нажимаю ОК и все по кругу.

     

    Вообщем на сохраняется в настройках Android-Application Store, постоянно слетает в Android development.

     

    На XE6 и XE7 все работает, в чем проблемы, помогите.

     

    Спасибо.

    У меня такая же история на ХЕ7. Ничего не помогает. Не могу подписать приложение. В чем может быть проблема?

    [Android] Системные кнопки в браузере

    в Фокус и ввод

    Опубликовано

    unit more;
     
    interface
     
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
      FMX.Layouts, FMX.Objects, FMX.WebBrowser, FMX.Platform, FMX.VirtualKeyboard;
     
    type
      TForm5 = class(TForm)
        Logo: TImage;
        Layout1: TLayout;
        WebBrowser1: TWebBrowser;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        procedure FormCreate(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
        procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
          Shift: TShiftState);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form5: TForm5;
     
    implementation
     
    {$R *.fmx}
     
    uses main;
     
    procedure TForm5.FormCreate(Sender: TObject);
    begin
    logo.Width:=Form5.ClientWidth;
    logo.Height:=Form5.ClientWidth/2.8;
    WebBrowser1.Width:=Form5.ClientWidth-30;
    WebBrowser1.Height:=Form5.ClientHeight-30;
    end;
     
     
    procedure TForm5.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
    var
      FService: IFMXVirtualKeyboardService;
    begin
      if Key = vkHardwareBack then
      begin
        TPlatformServices.Current.SupportsPlatformService
          (IFMXVirtualKeyboardService, IInterface(FService));
        if (FService <> nil) and (TVirtualKeyboardState.Visible
          in FService.VirtualKeyBoardState) then
        begin
          WebBrowser1.Visible:=false;
        end; end;
    end;
     
     
    procedure TForm5.SpeedButton1Click(Sender: TObject);
    begin
    WebBrowser1.Navigate;
    WebBrowser1.Visible:=True;
    end;
     
    end.

    [Android] Системные кнопки в браузере

    в Фокус и ввод

    Опубликовано

     

    Лови их на форме OnKeyup и выполняй нужные действия. 

     

    Пример:

    procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
var
  FService: IFMXVirtualKeyboardService;
begin
  if Key = vkHardwareBack then
  begin
    TPlatformServices.Current.SupportsPlatformService
      (IFMXVirtualKeyboardService, IInterface(FService));
    if (FService <> nil) and (TVirtualKeyboardState.Visible
      in FService.VirtualKeyBoardState) then
    begin
      // Back button pressed, keyboard visible, so do nothing...
    end
    else отрабатываем дальше

    Не работает

    [Android] Системные кнопки в браузере

    в Фокус и ввод

    Опубликовано · Изменено пользователем alewka006

    Добрый день.

    На форме разместил TWebBrowser (Android). Не реагирует на нажатие системной кнопки Назад. Подскажите, пожалуйста, как поймать и обработать нажатие системных кнопок в браузере.

    [Android] Возврат к предыдущей открытой форме по нажатию на кнопку Назад (Back)

    в Жесты

    Опубликовано

    Подскажите, пожалуйста.

    Есть такой код:

    unit more;
     
    interface
     
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
      FMX.Layouts, FMX.Objects, FMX.WebBrowser;
     
    type
      TForm5 = class(TForm)
        Logo: TImage;
        Layout1: TLayout;
        WebBrowser1: TWebBrowser;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        procedure FormCreate(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
        procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
          Shift: TShiftState);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form5: TForm5;
     
    implementation
     
    {$R *.fmx}
     
    uses main;
     
    procedure TForm5.FormCreate(Sender: TObject);
    begin
    logo.Width:=Form5.ClientWidth;
    logo.Height:=Form5.ClientWidth/2.8;
    WebBrowser1.Width:=Form5.ClientWidth-30;
    WebBrowser1.Height:=Form5.ClientHeight-30;
    end;
     
     
    procedure TForm5.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
    begin
    // Обработка аппаратной клавиши "Back"
          if Key = vkHardwareBack then
          begin
            //ваш обработчик поведения
            WebBrowser1.Visible:=False;
            Key := 0; // отмена стандартного действия
           end;
     
    end;
     
    procedure TForm5.SpeedButton1Click(Sender: TObject);
    begin
    WebBrowser1.Visible:=True;
    end;
     
     
     
    end.
     
    При нажатии на кнопку на экране появляется браузер. При нажатии кнопки Назад на телефоне он скрывается. Но стоит прикоснуться к браузеру и обработчик перестает работать. 
    Что можно сделать чтобы при любом раскладе при нажатии Назад браузер скрывался?
×
×
  • Создать...