Delphi Firemonkey Android TEdit UpperCase复制文本

Question

我正在使用Delphi Seattle，并且有一个edit，我想要将输入的文本写在uppercase中。我正在使用此代码：

procedure TF_Quiosque.edtCadNomeVisitanteChangeTracking(Sender: TObject);
begin
  edtCadNomeVisitante.Text := AnsiUpperCase(edtCadNomeVisitante.Text);
end;

第一个字母正确显示，但是从第三个字母开始在Edit中复制文字。

Answer 1

您必须选择TEdit KeyboardType 的属性为 Alphabet 。