Como forçar primeira letra Maiúscula dentro de um edit?

Delphi

07/08/2003

Olá companheiros...

Vejam se podem me ajudar...

Como faço para dentro de um edit forçar a digitação da primeira letra em maiúscula e o restante em minúsculas?

Se puderem me ajudar ficarei muito grato....

Um abraço a todos...


Pablo_lima

Pablo_lima

Curtidas 0

Respostas

Okama

Okama

07/08/2003

Dicas e Macetes - Clube Dephi


Esta dica é muito importante, pode ser usado principalmente na parte de cadastros de nomes. Por exemplo:se a pessoa esquecer de colocar a primeira letra de seu nome em minúscula, automaticamente a letra ficará maiúscula. 

Para que isto aconteça, coloque um objeto edit no formulário e no seu evento OnChange escreva o seguinte código:

var 
OldStart : Integer; 

begin 
With Edit1 do 
   if Text <> ´´ then
      begin 
         OnChange := NIL; 
         OldStart := SelStart; 
         Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text))); 
         SelStart := OldStart; 
         OnChange := Edit1Change; 
      end; 
end; 

Execute o projeto, digite uma palavra em minúsculo no edit e veja o que acontece.



GOSTEI 0
POSTAR