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

[hooch]

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

[admin]

ساده ترین کار اینه که تو* 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 قرار بدهید...

*

[hooch]

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

[hooch]

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

[yanin]

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

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