Delphi XE7实现Firemonkey TEdit 切换不同 KeyboardType 样式

转载地址:	http://www.cnblogs.com/onechen/p/4207689.html

转载地址:介绍
本文章介绍了Delphi XE7实现Firemonkey TEdit 切换不同 KeyboardType 样式，下面是具体的代码，很简单

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.      Edit1.KeyboardType := TVirtualkeyboardType.Default;
4.      Edit1.SetFocus;
5. end;
6. procedure TForm1.Button2Click(Sender: TObject);
7. begin
8.      Edit1.KeyboardType := TVirtualkeyboardType.NumberPad;
9.      Edit1.SetFocus;
10. end;

复制代码

 

 

 

转载请保留当前帖子的链接：http://www.dfwlt.com/forum.php?mod=viewthread&tid=1724 谢谢！