Firemonkey TEdit 切换不同 KeyboardType 样式

用代码切换 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;