Artigo Clube Delphi Edição 19 - Super Dicas

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
 (1)  (0)

Artigo da Revista Clube Delphi Edição 19.

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)));

"

A exibição deste artigo foi interrompida :(
Este post está disponível para assinantes MVP

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