ثبت فقط حروف در تکست باکس

*چطور میشه در تکست باکس فقط حروف نوشته شه و از ثبت اعداد جلوگیری بشه؟

با تشکر از زحمات خالصانه شما استاد گرامی

ساده ترین کار اینه که تو* Event* Key Press*اینو قرار بدهید.*

کد:

کد:

---

*if (Key IN ["0".."9"]) then key:= #0;

---

ضمنا بهتره که در مورد این تابع هم* تحقیقاتی بکنید. SetWindowLong
خیلی از کارها رو میشه باهاش انجام داد.
مثلا قطعه کد زیر یکعدد TextBox رو محدود به*ورود اعداد میکنه*
کد:

کد:

---

SetWindowLong(Edit1.Handle , GWL_STYLE, GetWindowLong(Edit1.Handle,GWL_STYLE) or * ES_NUMBER );

---

ضمنا اون رو باید در*Event Form Create قرار بدهید...

*

جناب استاد با سلام
چنانچه بخواهیم با استفاده از تابع SetWindowLong فقط حروف در تکست باکس وارد شود و شرط گذاشته شود که اگر کارکنر غیر مجاز درج شود پیام هشدار دهد چه دستوری بنویسیم

به سادگی با استفاده از این کد در رخداد KeyPress

کد:

---

  if (Key in [#8,'A'..'Z','a'..'z']) then
  Begin
  End
  Else
  Begin
    Key := #0;
  End;

---