Delphi XE5 for Android （九）

Delphi XE5 下TEdit控件有个属性：KeyboardType，以下图：

 

该属性决定了当焦点进入TEdit时，系统弹出的输入窗体，按照其帮助文件说明，不一样取值的输入窗体不一样，以下图：

根据不一样须要选择，也能够在运行期改变取值，经过放置一个TPopupBox控件来进行设置，设计界面以下：

代码以下：

procedure TfrmKeyboard.PopupBox1Change(Sender: TObject); 
begin 
  case PopupBox1.ItemIndex of 
    0: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktDefault; 
    1: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktNumbersAndPunctuation; 
    2: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktNumberPad; 
    3: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktPhonePad; 
    4: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktAlphabet; 
    5: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktURL; 
    6: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktNamePhonePad; 
    7: Edit1.KeyboardType := FMX.Types.TVirtualKeyboardType.vktEmailAddress; 
  end; 
end;