ShowVirtualKeyboard 如何在 Delphi FireMonkey Android 平台上运行？

Question

考虑：

Uses FMX.VirtualKeyboard, FMX.Platform;

procedure TForm1.Button1Click(Sender: TObject);
    var Keyboard: IFMXVirtualKeyboardService;
    begin
        keyboard := TPlatformServices.Current.GetPlatformService(IFMXVirtualKeyboardService) as IFMXVirtualKeyboardService;
        if  TVirtualKeyboardState.Visible in keyboard.VirtualKeyBoardState then
        begin
            Keyboard.HideVirtualKeyboard;
        end;
    end;

HideVirtualKeyboard 正在使用此代码运行，但 ShowVirtualKeyboard 如何在 Delphi FireMonkey Android 平台上运行？

因为同样的代码，ShowVirtualKeyboard 给出：

代码页实参不足错误

Answer 1

ShowVirtualKeyboard 方法期望接收一个参数，指示键盘将输入到哪个控件。例如，显示用于输入备忘录控件的键盘：

procedure TForm1.Button1Click(Sender: TObject);
begin
  keyboard := TPlatformServices.Current.GetPlatformService(IFMXVirtualKeyboardService) as IFMXVirtualKeyboardService;
  keyboard.showVirtualKeyboard(memo1);
end;