Edit repete caracteres

[clovisystem 0]

Estoudesenvolvendo um app em delphi xe5 paraandroid só que quando abro no meu tablet e digito algo na edit ele repete o que eu digito.... 

Ex.: digito N e quando digito A depois aparece na Edit NNA ao invés de NA... Alguém me ajuda ai???

[clovisystem 0]

Eu inseri o seguinte código no evento OnChangeTracking: 

procedure TForm2.Edit1ChangeTracking(Sender: TObject); 

var thetext:String; 
begin 
thetext := Edit1.Text; 
Edit1.OnChangeTracking := nil; 
Edit1.Text := ''; 
Edit1.Text := AnsiUpperCase(thetext); 
//Edit1.Text := AnsiUpperCase(Edit1.Text); 
Edit1.OnChangeTracking := Edit1ChangeTracking; 
Edit1.GoToTextEnd; 
end; 

Eu sei que o erro pode estar aqui o evento transforma a letra em maiúscula mas dá esse problema das letras repetidas...

[nunopicado 1,178]

Em 07/09/2017 às 03:19, clovisystem disse:

Eu sei que o erro pode estar aqui o evento transforma a letra em maiúscula mas dá esse problema das letras repetidas...

Porque não deixas escrever normalmente, e alteras para maiúsculas apenas no OnExit?

procedure TForm3.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).Text := UpperCase((Sender as TEdit).Text);
end;

 

Outra forma seria fazer isso directamente ao receber a tecla, no OnKeyPress:

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if CharInSet(Key, ['a'..'z'])
    then Key := UpCase(Key);
end;

 

[nunopicado 1,178]

De qualquer forma, se quiseres usar o OnChangeTracking, basta isto:

procedure TForm1.Edit1ChangeTracking(Sender: TObject);
begin
  Edit1.Text := UpperCase(Edit1.Text);
end;

 

Edited September 8, 2017 by nunopicado

[clovisystem 0]

5 horas atrás, nunopicado disse:

Porque não deixas escrever normalmente, e alteras para maiúsculas apenas no OnExit?

procedure TForm3.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).Text := UpperCase((Sender as TEdit).Text);
end;

 

Outra forma seria fazer isso directamente ao receber a tecla, no OnKeyPress:

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if CharInSet(Key, ['a'..'z'])
    then Key := UpCase(Key);
end;

 

Obrigado vou dar uma olhada