在某一些 Android 的机子上,点入 Edit 显示会键盘,但关闭键盘再点一次 Edit 后,键盘并不会再次显示出来。
实机测试:
Sony Xperia ST17i:无法再次显示。
Nexus 7 II:可以正常显示。
解决方案:在点入 Edit 事件,显示键盘。
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;