Dúvidas com a Função UpperCase
Olá e obrigado desde já...
Deve até ser um problema simples de resolver, mas náo estou encontrando a solução...
Quero que um DBMemo que tenho fique com o texto todo maiúsculo, pra isso uso a função upperCase no evento OnChange pois o usuário vai digitando e percisa continuar aparecendo maiúsculo, só que na hora eu queria que o cursor fosse para o final do texto... ele está indo para o começo e com isso não consigo continuar escrevendo... como faria uma solução pra isso??? Se algum filho de Deus souber me ajude...
Deve até ser um problema simples de resolver, mas náo estou encontrando a solução...
Quero que um DBMemo que tenho fique com o texto todo maiúsculo, pra isso uso a função upperCase no evento OnChange pois o usuário vai digitando e percisa continuar aparecendo maiúsculo, só que na hora eu queria que o cursor fosse para o final do texto... ele está indo para o começo e com isso não consigo continuar escrevendo... como faria uma solução pra isso??? Se algum filho de Deus souber me ajude...
Btovix
Curtidas 1
Melhor post
Adeilson_alves
18/01/2005
Amigos,
todos os códigos que vc´s utilizaram resolvem parte do problema.
vc´s já tentaram digitar caracteres acentuados?????
então este código que segue abaixo, creio eu que resolve outra boa parte.
no evento onKeyPress do DBMemo digite o seguinte:
(OBS: ainda falta implementar outros caracteres especiais como o ´ç´ para ´Ç´)
case Key of
´á´ : Key := ´Á´;
´é´ : Key := ´É´;
´í´ : Key := ´Í´;
´ó´ : Key := ´Ó´;
´ú´ : Key := ´Ú´;
´â´ : Key := ´Â´;
´ê´ : Key := ´Ê´;
´î´ : Key := ´Î´;
´ô´ : Key := ´Ô´;
´û´ : Key := ´û´;
´ä´ : Key := ´Ä´;
´ë´ : Key := ´Ë´;
´ï´ : Key := ´Ï´;
´ö´ : Key := ´Ö´;
´ü´ : Key := ´ü´;
´ã´ : Key := ´Ã´;
´õ´ : Key := ´Õ´;
´à´ : Key := ´À´;
´è´: Key := ´È´;
else
Key := UpCase(Key);
Até a próxima
todos os códigos que vc´s utilizaram resolvem parte do problema.
vc´s já tentaram digitar caracteres acentuados?????
então este código que segue abaixo, creio eu que resolve outra boa parte.
no evento onKeyPress do DBMemo digite o seguinte:
(OBS: ainda falta implementar outros caracteres especiais como o ´ç´ para ´Ç´)
case Key of
´á´ : Key := ´Á´;
´é´ : Key := ´É´;
´í´ : Key := ´Í´;
´ó´ : Key := ´Ó´;
´ú´ : Key := ´Ú´;
´â´ : Key := ´Â´;
´ê´ : Key := ´Ê´;
´î´ : Key := ´Î´;
´ô´ : Key := ´Ô´;
´û´ : Key := ´û´;
´ä´ : Key := ´Ä´;
´ë´ : Key := ´Ë´;
´ï´ : Key := ´Ï´;
´ö´ : Key := ´Ö´;
´ü´ : Key := ´ü´;
´ã´ : Key := ´Ã´;
´õ´ : Key := ´Õ´;
´à´ : Key := ´À´;
´è´: Key := ´È´;
else
Key := UpCase(Key);
Até a próxima
GOSTEI 1
Mais Respostas
Paulo_amorim
18/01/2005
Olá
Tentei aqui, mas ele funcionou certinho.. o código eh esse?
Foi o que eu tentei e funcionou
Pode-se tentar, por outro lado, colocar a função no KeyPress..
Espero que ajude
Até+
Tentei aqui, mas ele funcionou certinho.. o código eh esse?
Memo.Text := UpperCase(Memo.Text)
Foi o que eu tentei e funcionou
Pode-se tentar, por outro lado, colocar a função no KeyPress..
Key := UpCase(Key);
Espero que ajude
Até+
GOSTEI 1
Adeilson_alves
18/01/2005
Amigos,
todos os códigos que vc´s utilizaram resolvem parte do problema.
vc´s já tentaram digitar caracteres acentuados?????
então este código que segue abaixo, creio eu que resolve outra boa parte.
no evento onKeyPress do DBMemo digite o seguinte:
(OBS: ainda falta implementar outros caracteres especiais como o ´ç´ para ´Ç´)
case Key of
´á´ : Key := ´Á´;
´é´ : Key := ´É´;
´í´ : Key := ´Í´;
´ó´ : Key := ´Ó´;
´ú´ : Key := ´Ú´;
´â´ : Key := ´Â´;
´ê´ : Key := ´Ê´;
´î´ : Key := ´Î´;
´ô´ : Key := ´Ô´;
´û´ : Key := ´û´;
´ä´ : Key := ´Ä´;
´ë´ : Key := ´Ë´;
´ï´ : Key := ´Ï´;
´ö´ : Key := ´Ö´;
´ü´ : Key := ´ü´;
´ã´ : Key := ´Ã´;
´õ´ : Key := ´Õ´;
´à´ : Key := ´À´;
´è´: Key := ´È´;
else
Key := UpCase(Key);
end;
Até a próxima
todos os códigos que vc´s utilizaram resolvem parte do problema.
vc´s já tentaram digitar caracteres acentuados?????
então este código que segue abaixo, creio eu que resolve outra boa parte.
no evento onKeyPress do DBMemo digite o seguinte:
(OBS: ainda falta implementar outros caracteres especiais como o ´ç´ para ´Ç´)
case Key of
´á´ : Key := ´Á´;
´é´ : Key := ´É´;
´í´ : Key := ´Í´;
´ó´ : Key := ´Ó´;
´ú´ : Key := ´Ú´;
´â´ : Key := ´Â´;
´ê´ : Key := ´Ê´;
´î´ : Key := ´Î´;
´ô´ : Key := ´Ô´;
´û´ : Key := ´û´;
´ä´ : Key := ´Ä´;
´ë´ : Key := ´Ë´;
´ï´ : Key := ´Ï´;
´ö´ : Key := ´Ö´;
´ü´ : Key := ´ü´;
´ã´ : Key := ´Ã´;
´õ´ : Key := ´Õ´;
´à´ : Key := ´À´;
´è´: Key := ´È´;
else
Key := UpCase(Key);
end;
Até a próxima
GOSTEI 1
Beppe
18/01/2005
Eu não acho muito legal mudar o caso do texto inteiro, ao invés do caracter digitado. Mas com certeza é o jeito mais fácil.
Para mudar a posição do cursor, vc precisa adicionar outro comando.
Edit1.SelStart := Length(Edit1.Text);
UPDATE:
Adilson, é muito mais fácil usar a API FoldString, mas não foi isso que ele peiu.
Para mudar a posição do cursor, vc precisa adicionar outro comando.
Edit1.SelStart := Length(Edit1.Text);
UPDATE:
Adilson, é muito mais fácil usar a API FoldString, mas não foi isso que ele peiu.
GOSTEI 1
Beppe
18/01/2005
Eu não acho muito legal mudar o caso do texto inteiro, ao invés do caracter digitado. Mas com certeza é o jeito mais fácil.
Para mudar a posição do cursor, vc precisa adicionar outro comando.
Edit1.SelStart := Length(Edit1.Text);
Adilson, basta usar AnsiUpperCase.
PS: Desconsiderem meu último post.
Para mudar a posição do cursor, vc precisa adicionar outro comando.
Edit1.SelStart := Length(Edit1.Text);
Adilson, basta usar AnsiUpperCase.
PS: Desconsiderem meu último post.
GOSTEI 1
Massuda
18/01/2005
eu queria que o cursor fosse para o final do texto
O Beppe postou como posicionar o cursor no memo.
todos os códigos que vc´s utilizaram resolvem parte do problema. vc´s já tentaram digitar caracteres acentuados????? então este código que segue abaixo, creio eu que resolve outra boa parte.
Acho que seria mais simples usar [b:ce59873a22]AnsiUpperCase[/b:ce59873a22] ao invés de UpperCase do que tentar mapear as letras acentuadas maiúsculas/minúsculas.
é muito mais fácil usar a API FoldString, mas não foi isso que ele pe[d]iu.
Acho que AnisUpperCase é mais indicada nesse caso.
GOSTEI 0
Btovix
18/01/2005
Amigão valeu... utilizei na função Key press e deu tudo certo... abraço e até outro dia...
GOSTEI 0
Beppe
18/01/2005
[quote:c77234eeed=´Beppe´]é muito mais fácil usar a API FoldString, mas não foi isso que ele pe[d]iu.
Acho que AnisUpperCase é mais indicada nesse caso.[/quote:c77234eeed]
Isso eu vi depois, e postei em seguido. Primeiro eu tinha visualizado a resposta dele mas não vi exatamente o que fazia. FoldString é para decompor os acentos.
T+
GOSTEI 0