Convert the First Character in an Edit Box to Uppercase

For example, if the user types a name in all lowercase letters, the program could automatically convert the first character in the first and last names to uppercase letters.

Add the following code to the OnKeyPress event for the Edit1 component:

~~~~~~~~~~~~~~~~~~~~~~~~~
with Sender as TEdit do
    if (SelStart = 0) or
       (Text[SelStart] = ' ') then
          if Key in ['a'..'z'] then
             Key := UpCase(Key) ;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Using the RunOnce Registry Key
« Show/Hide the TaskBar in Windows

• 1
• 2
• 3
• 4
• 5