火猴TEdit大写

Question

我对Android中Firemonkey TEdit大写字母有问题。

代码：

procedure TFormMain.Edit1KeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
    KeyChar := UpCase(KeyChar);
end;

在Win32中它可以工作，但在Android中它不工作。

Answer 1

对字符串使用ToUpper（文档）或AnsiUpperCase（文档）。

更新：您为什么使用OnKeyDown？根据文档，您必须使用OnChangeTrack：“此事件提供了第一次机会来响应用户对编辑控件文本的修改。”

所以加入OnChangeTracking，比如

procedure TFormMain.Edit1ChangeTracking(Sender: TObject);
begin
  Edit1.text:= AnsiUpperCase(Edit1.text);
end;

Answer 2

您必须使用ChangeTrack事件。它工作正常

此代码适用于Android

procedure TFormMain.Edit1Typing(Sender: TObject);
begin
  Edit1.Text:=AnsiUpperCase(Edit1.Text);
  Edit1.GoToTextEnd;
end;

此代码适用于Windows：

procedure TFormMain.Edit1ChangeTracking(Sender: TObject);
var
  thetext: String;
begin
  thetext := Edit1.Text;
  Edit1.OnChangeTracking := nil;
  Edit1.Text := '';
  Edit1.Text := AnsiUpperCase(thetext);
  Edit1.OnChangeTracking := Edit1ChangeTracking;
  Edit1.GoToTextEnd;
end;