ما هي الخاصية التي تجبر edit قبول الأرقام فقط

[فارس المطر]

السلام عليكم

ما هي الخاصية في البرنامج التي تجبر الكائن edit قبول الأرقام فقط
دلفي7

[أبو معاذ]

[INDENT]

وعليكم السلام ورحمة الله وبركاته

KeyPress الخاص بالEdit

كود :

if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0; if Key = DecimalSeparator then if Pos(DecimalSeparator, MyEdit.Text) <> 0 then Key := #0;

[/INDENT]

[فارس المطر]

[color="darkgreen"]
شكر جزيلا أخي بارك الله فيك
الكود صحيح تم التنفيذ بنجاح
تحياتي[/color]

[Agmcz]

السلام عليكم
بالنسبة لدلفي 7 والنسخ التي لا توجد بها خاصية NumbersOnly
ضع هذا السطر في حدث إنشاء الفورم

PHP كود :

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER); 


أما الإصدارات الحدثية من دلفي توجد بها خاصية NumbersOnly إضبطها على True وانتهى الأمر