Fórum Dúvidas com a Função UpperCase #265748
18/01/2005
0
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
Curtir tópico
+ 1Post mais votado
18/01/2005
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
Adeilson_alves
Gostei + 1
Mais Posts
18/01/2005
Paulo_amorim
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
18/01/2005
Adeilson_alves
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
18/01/2005
Beppe
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
18/01/2005
Beppe
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
18/01/2005
Massuda
O Beppe postou como posicionar o cursor no memo.
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.
Acho que AnisUpperCase é mais indicada nesse caso.
Gostei + 0
18/01/2005
Btovix
Gostei + 0
18/01/2005
Beppe
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
Clique aqui para fazer login e interagir na Comunidade :)