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

最新推荐文章于 2023-04-11 15:59:31 发布

newsxy

最新推荐文章于 2023-04-11 15:59:31 发布

阅读量785

点赞数

分类专栏： Delphi

Delphi 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

在 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 
         ;