Fórum Como forçar primeira letra Maiúscula dentro de um edit? #173585

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.