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.
