安卓让tmemo不自动弹出键盘

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;