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;

推荐分享