19-03-2015, 06:10 PM
19-03-2015, 06:27 PM
[INDENT]
وعليكم السلام ورحمة الله وبركاته
KeyPress الخاص بالEdit
[/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;19-03-2015, 06:42 PM
[color="darkgreen"]
شكر جزيلا أخي بارك الله فيك
الكود صحيح تم التنفيذ بنجاح
تحياتي[/color]
شكر جزيلا أخي بارك الله فيك
الكود صحيح تم التنفيذ بنجاح
تحياتي[/color]
20-03-2015, 01:45 AM
السلام عليكم
بالنسبة لدلفي 7 والنسخ التي لا توجد بها خاصية NumbersOnly
ضع هذا السطر في حدث إنشاء الفورم
أما الإصدارات الحدثية من دلفي توجد بها خاصية NumbersOnly إضبطها على True وانتهى الأمر
بالنسبة لدلفي 7 والنسخ التي لا توجد بها خاصية NumbersOnly
ضع هذا السطر في حدث إنشاء الفورم
PHP كود :
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);