Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
clovisystem Novato
Registrado: Quarta-Feira, 30 de Agosto de 2017 Mensagens: 12
|
Enviada: Qua Set 06, 2017 4:31 pm Assunto: Edit repete caracteres |
|
|
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??? |
|
Voltar ao Topo |
|
|
leo_cj Colaborador
Registrado: Sábado, 26 de Março de 2011 Mensagens: 1335
|
Enviada: Qua Set 06, 2017 4:35 pm Assunto: |
|
|
Você desenvolveu algum código que manipula o conteúdo do edit? |
|
Voltar ao Topo |
|
|
clovisystem Novato
Registrado: Quarta-Feira, 30 de Agosto de 2017 Mensagens: 12
|
Enviada: Qua Set 06, 2017 6:15 pm Assunto: |
|
|
leo_cj escreveu: | Você desenvolveu algum código que manipula o conteúdo do edit? |
Sim, de deixar as letras maiusculas |
|
Voltar ao Topo |
|
|
clovisystem Novato
Registrado: Quarta-Feira, 30 de Agosto de 2017 Mensagens: 12
|
Enviada: Qua Set 06, 2017 11:16 pm Assunto: |
|
|
leo_cj escreveu: | Você desenvolveu algum código que manipula o conteúdo do edit? | 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 maiuscula mas dá esse problema das letras repetidas... |
|
Voltar ao Topo |
|
|
strak2012 Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014 Mensagens: 1518 Localização: Maceió - AL
|
Enviada: Qui Set 07, 2017 12:54 am Assunto: |
|
|
clovisystem escreveu: | leo_cj escreveu: | Você desenvolveu algum código que manipula o conteúdo do edit? | 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 maiuscula mas dá esse problema das letras repetidas... |
Tente da seguinte forma:
Código: | procedure TForm2.Edit1ChangeTracking(Sender: TObject);
begin
Edit1.Text := AnsiUpperCase(Edit1.Text);
//Edit1.Text := AnsiUpperCase(Edit1.Text);
end; |
Acredito que no componente Tedit você já possa configurar nas propriedades a questão de uppercase ou lowercase sem precisar implementar códigos. _________________ Tudo podemos quando tudo sabemos! |
|
Voltar ao Topo |
|
|
clovisystem Novato
Registrado: Quarta-Feira, 30 de Agosto de 2017 Mensagens: 12
|
Enviada: Qui Set 07, 2017 11:23 am Assunto: |
|
|
strak2012 escreveu: | clovisystem escreveu: | leo_cj escreveu: | Você desenvolveu algum código que manipula o conteúdo do edit? | 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 maiuscula mas dá esse problema das letras repetidas... |
Tente da seguinte forma:
Código: | procedure TForm2.Edit1ChangeTracking(Sender: TObject);
begin
Edit1.Text := AnsiUpperCase(Edit1.Text);
//Edit1.Text := AnsiUpperCase(Edit1.Text);
end; |
Acredito que no componente Tedit você já possa configurar nas propriedades a questão de uppercase ou lowercase sem precisar implementar códigos. |
Vou tentar, mas lá na IDE não tá aparecendo a opçao uppercase nem lowercase eu uso o Delphi Xe5, |
|
Voltar ao Topo |
|
|
clovisystem Novato
Registrado: Quarta-Feira, 30 de Agosto de 2017 Mensagens: 12
|
Enviada: Qui Set 07, 2017 3:38 pm Assunto: |
|
|
Tente da seguinte forma:
Código: | procedure TForm2.Edit1ChangeTracking(Sender: TObject);
begin
Edit1.Text := AnsiUpperCase(Edit1.Text);
//Edit1.Text := AnsiUpperCase(Edit1.Text);
end; |
Acredito que no componente Tedit você já possa configurar nas propriedades a questão de uppercase ou lowercase sem precisar implementar códigos.[/quote]
O código não funcionou no tablet só no windows... |
|
Voltar ao Topo |
|
|
leo_cj Colaborador
Registrado: Sábado, 26 de Março de 2011 Mensagens: 1335
|
Enviada: Sex Set 08, 2017 8:43 am Assunto: |
|
|
Tenta assim:
Código: | procedure TFormMain.Edit1Typing(Sender: TObject);
begin
Edit1.Text:=AnsiUpperCase(Edit1.Text);
Edit1.GoToTextEnd;
end; |
|
|
Voltar ao Topo |
|
|
|