delphi FireMonkey应用程序中显示时隐藏虚拟键盘

Delphi FireMonkey应用程序中显示时隐藏虚拟键盘

uses FMX.VirtualKeyboard;

var

  Keyboard: IFMXVirtualKeyboardService;

begin

  if TPlatformServices.Current.SupportsPlatformService (IFMXVirtualKeyboardService, IInterface(Keyboard)) then

  begin

    Keyboard.HideVirtualKeyboard;

  end;

end;