Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Astuces - Composants - Forcer en majuscule le premier caractère dans un TEdit en Delphi

Ajouter un composant TEdit.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Edit1.SelStart = 0) or (Text[Edit1.SelStart] = ' ') then
if Key in ['a'..'z'] then
Key := UpCase(Key);
end;


Tous droits réservés - Contacts
Haut de la page