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

[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

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

بالتوفيق