RSS订阅 | 匿名投稿
您的位置:网站首页 > FMX > 正文

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

作者:admin 来源: 日期:2018/1/19 21:28:03 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: