示例 Edit 关闭键盘再显示

在某一些 Android 的机子上，点入 Edit 显示会键盘，但关闭键盘再点一次 Edit 后，键盘并不会再次显示出来。

实机测试：

　　Sony Xperia ST17i：无法再次显示。

　　Nexus 7 II：可以正常显示。

解决方案：在点入 Edit 事件，显示键盘。

源码下载：[原创]示例Edit关闭键盘再显示.zip

function ShowVirtualKeyboard(const AControl: TFmxObject): Boolean;
var Service1: IFMXVirtualKeyboardService;
begin
     if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(Service1)) then
          Result := Service1.ShowVirtualKeyboard(AControl)
     else Result := False;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
     ShowVirtualKeyboard(TFmxObject(Sender));
end;