Delphi XE5 下TEdit控件有個屬性:KeyboardType,以下圖:spa
該屬性決定了當焦點進入TEdit時,系統彈出的輸入窗體,按照其幫助文件說明,不一樣取值的輸入窗體不一樣,以下圖:設計
根據不一樣須要選擇,也能夠在運行期改變取值,經過放置一個TPopupBox控件來進行設置,設計界面以下:3d
代碼以下:blog
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;get