Delphi XE7 FMX Android输入控件自适应虚拟键盘的位置

XE7带的Demo,演示了如何适应虚拟键盘，即当虚拟键盘弹出时，如果掩盖了当前的输入项，如Edit1,那么重新计算屏上所有控件的位置，让Edit1能够正常显示在键盘上面，让用户能看到输入的内容。问题是，键盘弹出后，如果用户利用键盘上的隐藏键，隐藏了键盘后，不能恢复屏上控件的位置，这个问题，其实XE5就存在。
要感谢盒子上Flying
Wang,用他的方法，很好的解决了上面的问题：
原文在这里，改后的FMX.VirtualKeyboard.Android.pas代码在这里。