本文整理自网络,侵删。
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 listboxadditems() 不重复添加edit1
更多相关阅读请进入《Delphi》频道 >>