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;