delphi4arab منتديات دلفي للعرب
كيف اجعل edit يقبل ارقام محددة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اجعل edit يقبل ارقام محددة (/showthread.php?tid=1219)



كيف اجعل edit يقبل ارقام محددة - kwahab - 20-09-2009

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


كيف اجعل edit يقبل ارقام محددة - Dr.MOT - 20-09-2009

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

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

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


PHP كود :
if key in ['1'..'48'} then key := key
else key := #13 

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

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

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

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


كيف اجعل edit يقبل ارقام محددة - Dr.MOT - 20-09-2009

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

لا يصح أن اقول عن الـ 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

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

بالتوفيق


كيف اجعل edit يقبل ارقام محددة - kwahab - 20-09-2009

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


كيف اجعل edit يقبل ارقام محددة - kachwahed - 22-09-2009

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



كيف اجعل edit يقبل ارقام محددة - kwahab - 22-09-2009

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


كيف اجعل edit يقبل ارقام محددة - kachwahed - 22-09-2009

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