在 Android 的文字编辑控件 (TEdit) 中, 如何按下 Enter 就隐藏虚拟键盘

在 Windows 的应用中,我们常常为了让使用者能够快速输入,在Edit元件中的onKeyUp或者 onKeyDown 事件中主动侦测使用者输入的字元是否有换行符号 (Enter),当使用者按下了Enter,程式码就主动把游标 Focus 带到下个栏位,但在行动装置中,又多了一个课题:『如果是多个栏位,就带到下个栏位。但如果是单一栏位,或是最后一个栏位,就隐藏虚拟键盘』

这个课题笔者在 2014九月的笔记『Virtual Keyboard 的显示与隐藏』里面已经有介绍过一次,只是当时是聚焦在iOS系统上,因为当时笔者开发的平台大都聚焦在iOS,对Android系统的关切并不多。

最近在一些项目中,也把触角伸到了Android平台,但笔者仍坚持『不到最后关头,绝不轻言JAVA』的原则,认识笔者的朋友们也都知道,笔者会写,但非不得已,绝不写JAVA的原则。

加上Delphi从XE6之后,对Android的支援也很深入了,笔者就更能坚定这个立场。

言归正传,在TEdit元件中要在使用者按下虚拟键盘的Enter键时,隐藏虚拟键盘的话,要怎么做呢?

显然用2014九月那个作法(把focus转移到别的元件), 对Android平台没用,不然笔者也不用多写这篇笔记了。

是的,熟习Android的使用者都知道,按下Android的实体Back键,就能隐藏虚拟键盘。所以这个作法也很简单,就是『在onKeyUp事件中,把Key 改成 137 即可』

onKeyUp 事件中,有两个 call by Reference 的参数,一个是 Key, 另一个是 KeyChar, 都让我们可以在处理完键盘事件后,重新赋予新的值给系统。在Delphi Seattle, Berlin, Tokyo (前面的版本我已经移除了,无从验证),这三个比较新的版本中,都定义有 vkHardwareBack这个值,其数值就是 137。

只需在 onKeyUp 事件中把 137 指派给 Key 这个变数即可隐藏键盘了,但通常我们程式码可能会用于多种平台上,所以我的范例程式代码会加上 {$IFDEF Android} 这样的判别式,以利多平台的程式维护:

procedure TFormMain.Edit_changeDeviceNameKeyUp(Sender: TObject; var Key: Word;
    var KeyChar: Char; Shift: TShiftState);
begin
   if Key = vkReturn then begin
      self.btn1.SetFocus; {$IFDEF ANDROID}
      Key := vkHardwareBack
{$ENDIF}
   end;
end;

这样应该很容易理解,对吗?

上一篇:Creating Materials at runtime And Issue of Shader.Find()


下一篇:vim for python