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