android - 如何在 TEdit 处于焦点时隐藏(并再次显示)软键盘 DELPHI XE7

Question

你能帮我如何在 TEdit 处于焦点时隐藏(并再次显示)软键盘吗？

Answer 1

我有一个解决方案:

1. 在 .dpr 中将 VKAutoShowMode 设置为 Never

   begin
     Application.Initialize;
     VKAutoShowMode := TVKAutoShowMode.Never;
     Application.CreateForm(TForm1, Form1);
     Application.Run;
   end. 
   

2. 在窗体上显示软键盘(例如在 TEdit.OnEnter 事件上):

   var
     FService: IFMXVirtualKeyboardService;
   begin
     TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
     if (FService <> nil) then
     begin
       FService.ShowVirtualKeyboard(Edit1);
       Edit1.SetFocus;
     end;
   

3. 在窗体上隐藏软键盘(Edit1 仍将聚焦于隐藏的软键盘):

   var
     FService: IFMXVirtualKeyboardService;
   begin
     TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
     if (FService <> nil) then
     begin
       FService.HideVirtualKeyboard;
       Edit1.SetFocus;
     end;