Mega Code Archive

 

Categories / Delphi / VCL

 

Edite girilen metnin ilk harfini büyük harf yapma

Bunun icin Editin OnKeyPress olayına aşağıdaki kodu ekleyin. with Sender as TEdit do if (SelStart = 0) or (Text[SelStart] = ' ') then if Key in ['a'..'z'] then Key := UpCase(Key);