Esse artigo faz parte da revista Clube Delphi edição 19. Clique aqui para ler todos os artigos desta edição

 

Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML. 

 

Super Dicas

Dicas e macetes para facilitar a sua vida!

 

Convertendo a primeira letra de um Edit para maiúsculas

 

         Para converter a primeira letra de um Edit para maiúsculas utilize o código abaixo:

 

procedure TForm1.Edit2Change(Sender: TObject);

var

  OldStart : Integer;

begin

  With Edit2 do

  if Text <> '' then begin

  OnChange := NIL;

  OldStart := SelStart;

  Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text))); ...

Quer ler esse conteúdo completo? Tenha acesso completo