20-09-2009, 12:37 AM
20-09-2009, 09:39 AM
السلام عليكم ..
مجرد محاولة ( لم أجربها )
ضع في الحدث OnKeypress للـ Edit\
ملاحظة : ستحتاج لإظافة بعض الأزرار كـ زر المسافة وزر الفاصلة وزر الباك سبيس وغيرها ..
ولكن الآن لا يحضرني كودها الذي يكون بالشكل ( # number )
وأتمنى من الأخوة أن يساعدونا في هذا الموضوع ..
بالتوفيق اخي وكل عام وانت بالف الف الف خير .. :bye1:
مجرد محاولة ( لم أجربها )
ضع في الحدث OnKeypress للـ Edit\
PHP كود :
if key in ['1'..'48'} then key := key
else key := #13
ملاحظة : ستحتاج لإظافة بعض الأزرار كـ زر المسافة وزر الفاصلة وزر الباك سبيس وغيرها ..
ولكن الآن لا يحضرني كودها الذي يكون بالشكل ( # number )
وأتمنى من الأخوة أن يساعدونا في هذا الموضوع ..
بالتوفيق اخي وكل عام وانت بالف الف الف خير .. :bye1:
20-09-2009, 10:02 AM
عفواً هنا خطأ ..
لا يصح أن اقول عن الـ 48 key
لأنه لا يوجد زر في لوحة المفاتيح بهذا الاسم ..
إذاً لتجعله يقبل الأرقام عليك أن تضع
ثم بعدها عليك أن تجعله يتأكد أن يكون الرقم أقل من 48
ولكن يجب أن تجعل الشرط الثاني مع التحقق من الشرط الأول أي في نفس الـ Block
هكذا ..
عذرا ليس لدي دلفي الآن للتأكد .. يمكنك التجريب
بالتوفيق
لا يصح أن اقول عن الـ 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
عذرا ليس لدي دلفي الآن للتأكد .. يمكنك التجريب
بالتوفيق
20-09-2009, 02:03 PM
بارك الله فيك حل المشكل
22-09-2009, 12:53 PM
وعليكم السلام ورحمةالله
مرفق مع الدلفي مكون TSpinEdit وبه خاصية MaxValue تغنيك عن كل ذلك.
مرفق مع الدلفي مكون TSpinEdit وبه خاصية MaxValue تغنيك عن كل ذلك.
22-09-2009, 01:41 PM
بارك الله فيك
فعلا المكون يغني عن ذلك.
هل من طريقة للبحث عن مكان مكون ما في الدلفي فالمكونات كثيرة ولا نحفظ مكانها وشكرا
فعلا المكون يغني عن ذلك.
هل من طريقة للبحث عن مكان مكون ما في الدلفي فالمكونات كثيرة ولا نحفظ مكانها وشكرا
22-09-2009, 02:01 PM
إذا لم يكن هناك Delphi 2006 فما فوق، فأحسن Plugin لذلك هو DDevExtensions.