كيف اجعل edit يقبل ارقام محددة

[kwahab]

السلام عليكم
كيف اجعل edit يقبل ارقام من 1 الى 48 فقط ولا يستطيع المستخدم اكمال الحقول والتسجيل الا اذا ادخل رقم صحيح
وشكرا

[Dr.MOT]

السلام عليكم ..

مجرد محاولة ( لم أجربها )

ضع في الحدث OnKeypress للـ Edit\

PHP كود :

if key in ['1'..'48'} then key := key
else key := #13 


ملاحظة : ستحتاج لإظافة بعض الأزرار كـ زر المسافة وزر الفاصلة وزر الباك سبيس وغيرها ..

ولكن الآن لا يحضرني كودها الذي يكون بالشكل ( # number )

وأتمنى من الأخوة أن يساعدونا في هذا الموضوع ..

بالتوفيق اخي وكل عام وانت بالف الف الف خير .. :bye1:

[Dr.MOT]

عفواً هنا خطأ ..

لا يصح أن اقول عن الـ 48 key

لأنه لا يوجد زر في لوحة المفاتيح بهذا الاسم ..

إذاً لتجعله يقبل الأرقام عليك أن تضع

if key in ['0'..'9']
else key := #13then key := keyُ

ثم بعدها عليك أن تجعله يتأكد أن يكون الرقم أقل من 48

if StrToInt( Edit1.Text ) > 48 Then
Edit1.Text := '48';

ولكن يجب أن تجعل الشرط الثاني مع التحقق من الشرط الأول أي في نفس الـ Block

هكذا ..

if key in ['0'..'9'] then
begin
key := key
if StrToInt(Edit1.Text) > 48 then
Edit1.Text := '48;'

end else
key := #13

عذرا ليس لدي دلفي الآن للتأكد .. يمكنك التجريب

بالتوفيق

[kwahab]

بارك الله فيك حل المشكل

[kachwahed]

وعليكم السلام ورحمةالله
مرفق مع الدلفي مكون TSpinEdit وبه خاصية MaxValue تغنيك عن كل ذلك.

[kwahab]

بارك الله فيك
فعلا المكون يغني عن ذلك.
هل من طريقة للبحث عن مكان مكون ما في الدلفي فالمكونات كثيرة ولا نحفظ مكانها وشكرا

[kachwahed]

إذا لم يكن هناك Delphi 2006 فما فوق، فأحسن Plugin لذلك هو DDevExtensions.