![]() |
|
كيف اجعل 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ملاحظة : ستحتاج لإظافة بعض الأزرار كـ زر المسافة وزر الفاصلة وزر الباك سبيس وغيرها .. ولكن الآن لا يحضرني كودها الذي يكون بالشكل ( # number ) وأتمنى من الأخوة أن يساعدونا في هذا الموضوع .. بالتوفيق اخي وكل عام وانت بالف الف الف خير .. :bye1: كيف اجعل edit يقبل ارقام محددة - Dr.MOT - 20-09-2009 عفواً هنا خطأ .. لا يصح أن اقول عن الـ 48 key لأنه لا يوجد زر في لوحة المفاتيح بهذا الاسم .. إذاً لتجعله يقبل الأرقام عليك أن تضع إقتباس :if key in ['0'..'9'] ثم بعدها عليك أن تجعله يتأكد أن يكون الرقم أقل من 48 إقتباس :if StrToInt( Edit1.Text ) > 48 Then ولكن يجب أن تجعل الشرط الثاني مع التحقق من الشرط الأول أي في نفس الـ Block هكذا .. إقتباس : if key in ['0'..'9'] then عذرا ليس لدي دلفي الآن للتأكد .. يمكنك التجريب بالتوفيق كيف اجعل 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. |