delphi android 安卓系统 关闭打开(显示隐藏)输入法

本文整理自网络，侵删。

 
uses
  FMX.Platform, FMX.VirtualKeyboard;
//---------www.delphitoip.com ----------//
 
//隐藏输入法
procedure TForm5.ButtonHideKeybordClick(Sender: TObject);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then
    KeyboardService.HideVirtualKeyboard;
end;

//显示输入法
procedure TForm5.ButtonShowKeyboardClick(Sender: TObject);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then
    KeyboardService.ShowVirtualKeyboard(Edit1);
end;
 

相关阅读 >>

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 杀进程（包括系统进程）

Delphi图像处理 -- 图像卷积

Delphi 计算运行耗时的方法1

Delphi常用数据类型

Delphi 打开网址链接

xe7提示找不到sharedactivitycontext函数

Delphi adoquery添加用户及密码

Delphi获取jpg图片的高度、宽度

Delphi 解决timage无法在窗体resize时改变canvas的大小

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

转载请注明出处：木庄网络博客 » delphi android 安卓系统 关闭打开(显示隐藏)输入法