Mettre la première lettre d'un TEdit en majuscule

procedure TForm1.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
if Text <> '' then
begin
OnChange := nil;
OldStart := SelStart;
Selstart := 0;
Sellength := 1;
Seltext := AnsiUpperCase(Text[1]);
SelStart := OldStart;
OnChange := Edit1Change;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour28/01/2002
VisualisationVu 910 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur