| 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 |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
