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

[alewka006]

Добрый день.

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

Изменено 1 июня, 2015 пользователем alewka006

[bigjorj]

Лови их на форме 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 отрабатываем дальше

[alewka006]

 

Лови их на форме 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 отрабатываем дальше

Не работает

[alewka006]

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.URL:='http://mymobilapp.ru/dostavka.html';

WebBrowser1.Navigate;

WebBrowser1.Visible:=True;

end;

 

end.

[alewka006]

Стоит дотронуться браузера и перестает работать

[bigjorj]

Так попробуй

 

procedure TForm5.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;

  Shift: TShiftState);

begin

  if Key = vkHardwareBack then

  begin

      WebBrowser1.Visible:=false;

      Key := 0;

    end; 

end;

[alewka006]

Именно так и сделал с самого начала. После первого касания браузера это событие не работает, а у браузера нет такого события

[alewka006]

В примерах в интернете для перемещения назад используют кнопку на форме. Неужели такую элементарную вещь не предусмотрели?

[alewka006]

Я обратил внимание, что если дотронуться до браузера, то системные кнопки перестают работать на всех формах. Как же быть?

[Mazzay]

А какие ещё способы проверки есть?

Экранная клавиатура сама свернулась, так как на форме не стало полей для ввода текста. Но

if (FService <> nil) and (TVirtualKeyboardState.Visible in FService.VirtualKeyBoardState)

всё равно возвращает True.