用Delphi 10.3在android应用程序中隐藏虚拟键盘

uses
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.JavaTypes,
  FMX.Platform.Android;

procedure HideVirtualKeyboard;
var
  InputMethodManager: JInputMethodManager;
  WindowToken: JIBinder;
begin
  InputMethodManager := (SharedActivityContext.getSystemService(TJContext.JavaClass.INPUT_METHOD_SERVICE) as ILocalObject).GetObjectID;
  WindowToken := MainActivity.getWindow.getDecorView.getWindowToken;
  InputMethodManager.hideSoftInputFromWindow(WindowToken, TJInputMethodManager.JavaClass.HIDE_NOT_ALWAYS);
end;

uses
  FMX.Platform;

procedure HideVirtualKeyboard;
begin
  if Assigned(TPlatformServices.Current) then
    (TPlatformServices.Current.GetPlatformService(IFMXVirtualKeyboardService) as IFMXVirtualKeyboardService).HideVirtualKeyboard;
end;