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 如何在richedit控件里加入链接

Delphi 根据开始和结束符取得中间字符串

Delphi 修改webbrowser的内容

Delphi listview 设置固定列宽

Delphi 列出所有可视窗口

Delphi的tservice的windows�入桌面切�q

Delphi 实现文件上传下载

Delphi idhttp1下载文件防止假死

Delphi xe7检查android蓝牙权限

Delphi窗体固定在桌面上

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

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