Delphi XE6 Firemonkey Mobile - 如何禁用虚拟键盘？

Question

当我在Android上关注编辑字段时，虚拟键盘始终会弹出。 我想禁用它，或者更好地通过单击按钮来启用/禁用它。

目前我已经解决了＃34;这有一个计时器，总是关闭后的虚拟键盘 出现。这是我的代码：

uses FMX.VirtualKeyboard;

procedure TForm1.Timer1Timer(Sender: TObject);
var Keyboard: IFMXVirtualKeyboardService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService,Keyboard) then
    begin
        if TVirtualKeyBoardState.Visible in Keyboard.GetVirtualKeyBoardState then
        begin
            Keyboard.HideVirtualKeyboard;
        end
    end;
end;

我希望你能帮助我。

非常感谢！

Answer 1

您可以使用

禁用虚拟键盘的自动显示

VKAutoShowMode := TVKAutoShowMode.Never;

它在FMX.Types中定义。

将其放入DPR中，然后它将不再自动弹出。