OrangeUI

新建一个工程，
把uUIFunction.pas这个单元添加到工程中去，并且在主窗体中引用此单元，
在主窗体中引用OrangeUI的uComponentType这个单元，
在主窗体上放置一个模拟虚拟键盘显示的Panel控件,
在虚拟键盘弹出的时候，会把这个Panel的高度设置为虚拟键盘的高度，

再设置主窗体的虚拟键盘事件：
 
在虚拟键盘显示事件OnVirtualKeyboardShown中，
加上用于通知Frame虚拟键盘事件显示的过程，
CallSubFrameVirtualKeyboardShown(Sender,Self,KeyboardVisible,Bounds);
 
虚拟键盘隐藏事件OnVirtualKeyboardHidden事件加上
加上用于通知Frame虚拟键盘事件隐藏的过程，
CallSubFrameVirtualKeyboardHidden(Sender,Self,KeyboardVisible,Bounds);
 
 
并且在主窗体的OnShow事件中加入
启用模拟虚拟键盘、指定虚拟键盘模拟控件的代码，
修复Android下的虚拟键盘的代码，
以及处理虚拟键盘隐藏和显示的代码
如下图所示:

//在Windows平台下的模拟虚拟键盘控件
IsSimulateVirtualKeyboardOnWindows:=True;
//模拟虚拟键盘控件的高度
SimulateWindowsVirtualKeyboardHeight:=160;
GlobalAutoProcessVirtualKeyboardControlClass:=TSkinFMXPanel;
GlobalAutoProcessVirtualKeyboardControl:=pnlVirtualKeyBoard;
GlobalAutoProcessVirtualKeyboardControl.Visible:=False;
 
 
{$IFNDEF MSWINDOWS}
//在模拟器下设置为透明
pnlVirtualKeyBoard.SelfOwnMaterialToDefault.IsTransparent:=True;
pnlVirtualKeyBoard.Caption:='';
{$ENDIF}
 
 
//修复Android下的虚拟键盘隐藏和显示
GetGlobalVirtualKeyboardFixer.StartSync(Self);

 
 
再新建一个Frame，Name为FrameLogin,单元名为LoginFrame.pas,
我们用它来做为登陆界面，
 
放好ScrollBox,取名为sbClient,Align设置为Client,
ScrollBox上面放好ScrollBoxContent,取名为sbcClient,
 
再在ScrollBoxContent上面放好用户名和密码所需要的控件，
edtPassword和edtUserName的控件类型必须是TSkinFMXEdit,

 
就要实现在uUIFunction.pas单元中定义的IFrameVirtualKeyboardEvent接口，
 
IFrameVirtualKeyboardAutoProcessEvent=interface
['{D25150F4-EB4C-4097-93FE-51BFD19FF29D}']
//当前需要处理的控件
function GetCurrentPorcessControl(AFocusedControl:TControl):TControl;
//虚拟键盘放在哪里
function GetVirtualKeyboardControlParent:TControl;
end;

 
在LoginFrame.pas的uses中引用uUIFunction单元，
在FrameLogin的声明中加入IFrameVirtualKeyboardAutoProcessEvent,

 
 
再加入接口的两个方法，并实现它们，


 
在窗体的FormShow事件中动态创建LoginFrame来显示登陆页面，

var
ALoginFrame:TFrameLogin;
begin
ALoginFrame:=TFrameLogin.Create(Self);
ALoginFrame.Parent:=Self;
ALoginFrame.Align:=TAlignLayout.Client;
 
 
可以直接在Windows平台下点击SkinFMXEdit来模拟的虚拟键盘弹出的效果: