修正 XE5 Android 键盘三个问题

发布时间：2020-12-15 04:35:53 所属栏目：大数据来源：网络整理

导读：说明：XE5 在 Android 平台上存在这一些键盘操作的问题，目前发现有下列几种：按键盘上的隐藏键后，无法按上一页。按键盘上的隐藏键后，无法触发 OnVirtualKeyboardHidden事件。关闭键盘后，再点一次无法显示键盘。 } 内为增加的部份）： { = = = TRec

说明：XE5 在 Android 平台上存在这一些键盘操作的问题，目前发现有下列几种：

按键盘上的隐藏键后，无法按上一页。
按键盘上的隐藏键后，无法触发 OnVirtualKeyboardHidden事件。
关闭键盘后，再点一次无法显示键盘。

}内为增加的部份）：

{ === TRectF.Create(ConvertPixelToPoint(TPointF.Create(TotalRect.left,TotalRect.top +

function TVirtualKeyboardAndroid.GetVirtualKeyBoardState: TVirtualKeyBoardState;
begin
if FError then
Result := [vksError]
else
Result := [];
if IsAutoShow then
Result := Result + [vksAutoShow];
if not FError then
begin
{+++>}
// 这里只解决: 按键盘上的隐藏后,无法再按上一页的问题 (按上一页后,才会执行这里).
if FState = vkbsVisible then
if ObtainKeyboardRect.Height < 30 then
SetState(TVirtualKeyboardAndroid.TvkbState.vkbsHidden);
{<+++}
if FState = vkbsVisible then
Result := Result + [vksVisible];
end;
end;

Main.pas

//------------------------------------------------------------------------------ // . by 龟山阿卍 QQ - // http://www.cnblogs.com/onechen/ - // - // 需修改 - // FMX.VirtualKeyboard.Android.pas - //------------------------------------------------------------------------------

unit Main;

interface

uses
System.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,FMX.Platform,FMX.VirtualKeyboard.Android,FMX.VirtualKeyboard,FMX.Types,FMX.Controls,FMX.Forms,FMX.Graphics,FMX.Dialogs,FMX.Edit,FMX.StdCtrls,FMX.Layouts,FMX.Memo;

type
TForm1 = class(TForm)
ToolBar1: TToolBar;
Label1: TLabel;
VirtualKeyboardTimer: TTimer;
Memo1: TMemo;
Edit1: TEdit;
procedure FormVirtualKeyboardHidden(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
procedure FormVirtualKeyboardShown(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
procedure VirtualKeyboardTimerTimer(Sender: TObject);
procedure Edit1Click(Sender: TObject);
private
{ private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

// 显示键盘
function ShowVirtualKeyboard(const AControl: TFmxObject): Boolean;
var Service1: IFMXVirtualKeyboardService;
begin
if (ObtainKeyboardRect.Height < 30) and
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService,IInterface(Service1)) then
Result := Service1.ShowVirtualKeyboard(AControl)
else Result := False;
end;

procedure TForm1.FormVirtualKeyboardHidden(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
begin
Edit1.Text := 'Keyboard hidden!';
Memo1.Text := Format('W: %d H: %d',[Bounds.Width,Bounds.Height]);

 VirtualKeyboardTimer.Enabled :</span>= False; //<span style="color: #000000;"&gt; 关闭检查键盘高度

end;

procedure TForm1.FormVirtualKeyboardShown(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
begin
Edit1.Text := 'Keyboard shown!';
Memo1.Text := Format('W: %d H: %d',Bounds.Height]);

 VirtualKeyboardTimer.Enabled :</span>= True; //<span style="color: #000000;"&gt; 开启检查键盘高度

end;

procedure TForm1.VirtualKeyboardTimerTimer(Sender: TObject);
var R: TRect;
begin
// 检查键盘高度 < 30 代表键盘关闭.
R := ObtainKeyboardRect;
if R.Height < 30 then
Self.OnVirtualKeyboardHidden(Sender,False,R);
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
// 在 TEdit 或 TMemo 需要用到键盘的控件,加入下行,才能确保关闭键盘后,再点一次可以显示键盘.
ShowVirtualKeyboard(TFmxObject(Sender));
end;

end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!