Delphi XE Android下让TMemo不自动弹出键盘


本文整理自网络,侵删。

 用TMemo来显示一段说明文字,可一点Memo,就弹出键盘,找了半天控制键盘的属性,没找到。最后将readOnly设置为True搞定。

如果需要一个form都不显示keyboard,那么可以利用全局变量
VKAutoShowMode来控制,这个全局变量可以有下面三个值。
TVKAutoShowMode = (DefinedBySystem, Never, Always)

DefinedBySystem:由系统确定
Never:从不弹出键盘
Always:总是弹出键盘

为了不显示Keyboard,设置
procedure TCheckVersionForm.FormActivate(Sender: TObject);
begin
//禁止弹出键盘.
  VKAutoShowMode := TVKAutoShowMode.Never;
end;

因为是全局变量,还要在窗品Deactivate时,恢复原来的值,不然所有界面都不弹出virtualKeyBoard了!这不是你想要的结果。

procedure TCheckVersionForm.FormDeactivate(Sender: TObject);
begin
  VKAutoShowMode:=TVKAutoShowMode.DefinedBySystem;

end;

 

来源 http://blog.sina.com.cn/s/blog_44fa172f0102vgna.html

相关阅读 >>

Delphi tms web core 从js调用pascal函数

Delphi colorbox不需要系统那么多颜色,只想自定义显示其中几个,怎么做?

Delphi获取两个字符之间的数

Delphi 让程序支持外来文件拖放的单元文件

Delphi多线程程序示例

Delphi 写3389自动登录器

Delphi tdirectory.getdirectories获取子目录及文件

Delphi ini文件操作用法

Delphi获取计算机的工作组信息和获取工作组中的计算机名称

Delphi获取系统安全软件信息

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...