آیا می توان در هنگام تایپ انگلیسی اولین حرف بزرگ و بقیه کوچک تایپ شود ؟

[mahlamahla]

به نام خداوند بخشنده مهربان
سلام
آیا می توان در هنگام تایپ انگلیسی اولین حرف بزرگ و بقیه کوچک تایپ شود
متشکرم
:تشویق:

[بهروز عباسی]

درود
آره میشه

کد زیرو توی رویدادOnKeyPress یک Edit بنویس
with Sender as TEdit do
if (SelStart = 0) or (Text[SelStart] = ' ') then
if Key in ['a' .. 'z'] then
Key := UpCase(Key);

موفق باشی