新手求教，XE8怎么实现隐藏Android软键盘(输入法)？

yoeotan

如题：XE8怎么实现隐藏Android软键盘？
也就是当切换TEdit焦点时不弹出Android软键盘。

wang_80919

送大家一个 用 代码 显示 和 隐藏的 代码。

var
  VirtualKeyboard: IFMXVirtualKeyboardService;


    if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService,
      IInterface(VirtualKeyboard)) then
    begin
      if not (TVirtualKeyboardState.Visible in VirtualKeyboard.VirtualKeyBoardState) then
      begin        //显示
        VirtualKeyboard.ShowVirtualKeyboard(Edit1);
      end;
    end;



    if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService,
      IInterface(VirtualKeyboard)) then
    begin
      if (TVirtualKeyboardState.Visible in VirtualKeyboard.VirtualKeyBoardState) then
      begin
        //隐藏
        VirtualKeyboard.HideVirtualKeyboard;
      end;
    end;

wang_80919

1. 如果不想让用户用键盘输入， ReadOnly 设置成 True 就完事大吉了。
2. 如果不想显示软键盘，又想能用键盘输入，可以设置全局变量
  VKAutoShowMode := TVKAutoShowMode.Never;
需要 uses FMX.Types;

drifer

wang_80919 发表于 2015-6-16 14:14
1. 如果不想让用户用键盘输入， ReadOnly 设置成 True 就完事大吉了。
2. 如果不想实现软键盘，又想能用键 ...

没看懂,什么叫不想实现又想能用?

drifer

我是想在我点击的时候弹出来,但在我滑动的时候(碰到了)不弹出来.
这个怎么设置

wang_80919

drifer 发表于 2015-6-16 14:21
我是想在我点击的时候弹出来,但在我滑动的时候(碰到了)不弹出来.
这个怎么设置
...

难，建议 你滑动开始 EDIT 只读，滑动结束，取消只读。

drifer

wang_80919 发表于 2015-6-16 14:23
难，建议 你滑动开始 EDIT 只读，滑动结束，取消只读。

关键是你在点下去之前就要设置为只读,不好处理.

wang_80919

或者  VKAutoShowMode := TVKAutoShowMode.Never;
然后 参考 《不看后悔》 修复 安卓 输入法隐藏 后 无法退出的问题 3.4.txt
里头的代码，人工显示虚拟键盘。

wang_80919

在Edit的OnEnter事件中加入如下代码即可使EDIT在获得焦点时不弹出输入法：
VKAutoShowMode := TVKAutoShowMode.Never;


需引用FMX.Types单元

TVKAutoShowMode有三个属性efinedBySystem, Never, Always

如果需要再次弹出输入法，只需要Edit的OnExit事件中加入如下代码即可
VKAutoShowMode := TVKAutoShowMode.DefinedBySystem;

以上内容来自 [东莞]光头仔(124054867);