Виртуальная клавиатура Как я могу скрыть / показать клавиатуру под "Android"?

[Grigore]

How i can show/hide virtual keybaord on Android from FireMonkey?

 

Thanks, Grigore

 

Как я могу скрыть/показать клавиатуру под "Android"?

 

Благодарю, Grigore

[Brovin Yaroslav]

Русский
За управление виртуальной клавиатурой в FireMonkey отвечает сервис IFMXVirtualKeyboardService (Embarcadero Doc Wiki). Который позволяет отображать и скрывать клавиатуру.
Для скрытия клавиатуры достаточно выполнить следующий код:

uses
  FMX.Platform, FMX.VirtualKeyboard;

procedure TForm5.ButtonHideKeybordClick(Sender: TObject);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  // Запрашиваем сервис виртуальной клавиатуры
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then
    KeyboardService.HideVirtualKeyboard;
end;

Чтобы показать клавиатуру для контрола:

procedure TForm5.ButtonShowKeyboardClick(Sender: TObject);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  // Запрашиваем сервис виртуальной клавиатуры
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then
    KeyboardService.ShowVirtualKeyboard(Edit1);
end;

---

English 
FireMonkey has special service for managing Virtual Keyboard. It is IFMXVirtualKeyboardService (Embarcadero Doc Wiki). It allows show and hide keyboard.
For showing virtual keyboard use next code:

uses
  FMX.Platform, FMX.VirtualKeyboard;

procedure TForm5.ButtonHideKeybordClick(Sender: TObject);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  // Request service of visrtual keyboard
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then
    KeyboardService.HideVirtualKeyboard;
end;

For showing virtual keyboard for control:

procedure TForm5.ButtonShowKeyboardClick(Sender: TObject);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  // Request service of visrtual keyboard
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then
    KeyboardService.ShowVirtualKeyboard(Edit1);
end;