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

Question

当我将编辑字段聚焦在 Android 上时，总是会弹出虚拟键盘。 我喜欢禁用它，或者更好地通过单击按钮来启用/禁用它。

目前我用一个计时器“解决”了这个问题，该计时器总是在之后关闭虚拟键盘 出现。这是我的代码：

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 中，然后它就不会再自动弹出了。

Answer 2

您还可以放置：

VKAutoShowMode := TVKAutoShowMode.Never;

在主窗体的 FormCreate 事件中。