Dicas - Convertendo a primeira letra de um EditBox para maiúsculas

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, para converter a primeira letra de um EditBox para maiúsculas, este código deve ser utilizado da seguinte forma:

 

Convertendo a primeira letra de um EditBox para maiúsculas

procedure TForm1.Edit1Change(Sender: TObject);
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;

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?