android - 在 Android Delphi XE8 中隐藏键盘

Question

我真的需要这个!当我进入编辑时，键盘会自动显示..但是当我离开编辑时，键盘不会隐藏!我正在寻找答案，但我做不到! 拜托，有人可以帮助我吗？!

Answer 1

FireMonkey 有管理虚拟键盘的特殊服务。它是 IFMXVirtualKeyboardService ( Embarcadero Docs )。这允许您显示和隐藏键盘。 要隐藏键盘，请尝试以下代码:

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;