用代码切换 Edit 不同的键盘样式：
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.KeyboardType := TVirtualkeyboardType.Default; Edit1.SetFocus; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit1.KeyboardType := TVirtualkeyboardType.NumberPad; Edit1.SetFocus; end;
Firemonkey TEdit 切换不同 KeyboardType 样式
原文：http://www.cnblogs.com/onechen/p/4207689.html