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;