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

[hooch]

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

[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]

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

[yanin]

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

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