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;

 

你可能感兴趣的:(keyboard)