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的屬性。