+- 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=6885)
ما هي الخاصية التي تجبر edit قبول الأرقام فقط - فارس المطر - 19-03-2015
السلام عليكم
ما هي الخاصية في البرنامج التي تجبر الكائن edit قبول الأرقام فقط
دلفي7
ما هي الخاصية التي تجبر edit قبول الأرقام فقط - أبو معاذ - 19-03-2015
[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;ما هي الخاصية التي تجبر edit قبول الأرقام فقط - فارس المطر - 19-03-2015
[color="darkgreen"]
شكر جزيلا أخي بارك الله فيك
الكود صحيح تم التنفيذ بنجاح
تحياتي[/color]
ما هي الخاصية التي تجبر edit قبول الأرقام فقط - Agmcz - 20-03-2015
السلام عليكم
بالنسبة لدلفي 7 والنسخ التي لا توجد بها خاصية NumbersOnly
ضع هذا السطر في حدث إنشاء الفورم
PHP كود :
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);