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

本文章介绍了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;