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 软件版本称呼

Delphi listboxadditems() 不重复添加edit1

Delphi根据窗口句柄获取所在程序路径

Delphi之屏幕和窗口的坐标

汇编数据宽度和字节序

Delphi中对excel表格文件的导入和导出操作

Delphi mediaplayer1 播放avi 视频

Delphi实现tedit控件的外观只有一条下划线

Delphi 去掉treeview水平滚动条

Delphi olevariant excel保存文件

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



打赏

取消

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

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

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

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

评论

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