Delphi XE5 for Android (九)
2013-10-15 21:49
483 查看
Delphi XE5 下TEdit控件有个属性:KeyboardType,如下图:
![](http://images.cnitblog.com/blog/124433/201310/15214705-9996bdfbdc4c468a8860c8c43818c15b.png)
该属性决定了当焦点进入TEdit时,系统弹出的输入窗体,按照其帮助文件说明,不同取值的输入窗体不同,如下图:
![](http://images.cnitblog.com/blog/124433/201310/15214712-3e34da5127804c0895208e7e306401bf.png)
根据不同需要选择,也可以在运行期改变取值,通过放置一个TPopupBox控件来进行设置,设计界面如下:
![](http://images.cnitblog.com/blog/124433/201310/15214716-a845afba973444aca06d025f85ccbcb7.png)
代码如下:
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;
![](http://images.cnitblog.com/blog/124433/201310/15214705-9996bdfbdc4c468a8860c8c43818c15b.png)
该属性决定了当焦点进入TEdit时,系统弹出的输入窗体,按照其帮助文件说明,不同取值的输入窗体不同,如下图:
![](http://images.cnitblog.com/blog/124433/201310/15214712-3e34da5127804c0895208e7e306401bf.png)
根据不同需要选择,也可以在运行期改变取值,通过放置一个TPopupBox控件来进行设置,设计界面如下:
![](http://images.cnitblog.com/blog/124433/201310/15214716-a845afba973444aca06d025f85ccbcb7.png)
代码如下:
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;
相关文章推荐
- Delphi单元文件之-简体繁体互转
- Delphi单元文件之-防止程序重复执行
- Delphi数组复制
- Delphi TFindDialog TReplaceDialog对话框在Memo中的使用
- DevExpress VCL for Delphi 各版本收集下载
- DSTUN-stun协议(rfc3489)的delphi实现版本
- DelphiXE4- System.IOUtils.TDirectory笔记查询后缀名为dll的文件
- Delphi XE5 android listview
- [delphi函数] Dispose 释放为指针分配的内存空间
- delphi dispose释放内存的方法 New 和 GetMem 的区别
- delphi 软件自动获取管理员权限方法
- delphi获取MAC地址的function()
- Delphi制作DLL
- delphi导出Excel
- delphi总结
- Delphi中如何动态更改DBGrid的颜色
- Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪
- Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换
- delphi十个小技巧
- delphi中DBgrid按时间查找,并做运算(测试小软件)