الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

backspace

مغلق
بدأه moa mohsen في 5 مايو 2006 · 3 رد · 575 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لمنع المستخدم من ادخال نص بدل رقم وضعت هذا الكود في الحدث onkeypress

if not(key in['0'..'9','.'] then key:=#0;

واريد ان يكون من المسموح به استخدام المفتاحbackspace فكيف اضعه من ضمن المفاتيح المسموحة

ثانيا عندي edit به قيمة افتراضية في خاصية text وهي 0 وعندما يدخل المستخدم لهذا المكون لكي يقوم بكتابة رقم معين يبقى الصفر موجود الى ان يقوم المستخدم بازالته ولو لم يزله وكتب مثلا 5 يكون المكتوب هو50 او05 اريد عندما يدخل المستخدم لهذا المكون يتم تضليل القيمة الموجودة به كما اراها في بعض البرامج

ولكم الشكر مسبقا وجزاكم الله الف خير

#2

بسم الله الرحمن الرحيم

بالنسبة للطلب الأول: تستطيع استخدام الكود التالي:

  if not (Key in ['0'..'9',#8]) then
   Key := #0;

أما بالنسبة للطلب الثاني فلم أفهم المقصود بالضبط, ماذا تعني بكلمة (تضليل), وعموماً إذا ما كنت ترغب بحذف القيمة الافتراضية في حال

تم الانتقال إليها (بواسطة tab أو بواسطة النقر بالماوس مباشرة) فتستطيع الاستفادة من الحدث onenter الخاص بمثل هذه الحالات,

وتستطيع أن تكتب فيه الكود الذي ترغب به, كحذف القيمة الموجودة في الـ edit مثلاً...

المال في الغربة وطن والفقر في الوطن غربة

#3

رد على السؤال الثاني

يجب عليك وضع القيمة الافتراضية قبل وصول المؤشر الى edit وبهذا تكون القيمة في ال edit مظلله .

سلام

#4

اشكركم اخواني على الردود التى فعلا استفدت منها وادامكم الله في عون اخوانكم في المنتدى

هذا الموضوع مغلق.

مواضيع مشابهة