Convertendo a 1ª letra de um Edit para maiúsculas

 

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.