+- 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=2185)
هل يمكن اجبار علي ادخال رقم في خانة edit - m_m_saad - 15-07-2010
السلام عليكم ورحمة الله وبركاته
المفترض اني اقوم بعمليه حسابات بسيطه ولكن
اذا حدث خطأ بالصدفة وتركت خانه edit فارغة أو بها حرف يعطي رسالة خطأ
ويهنج الدلفي
فهل يوجد كود لاجبار كتابة رقم في خانة edit واذا حدث خطأ في الكتابة ****ه يكتب رقم افتراضي أو لا يستقبله
هل هذا ممكن
وجزاكم الله خيرا
هل يمكن اجبار علي ادخال رقم في خانة edit - Lam.Abdeldjalil - 15-07-2010
السلام عليكم
الحل موجود في المنتدي
الرابط
http://www.delphi4arab.net/forum/showthread.php?tid=2722&highlight=edit
و السلام عليكم
هل يمكن اجبار علي ادخال رقم في خانة edit - kachwahed - 15-07-2010
وعليكم السلام ورحمة الله وبركاته
الأخ m_m_saad أهلا ومرحبا بك في المنتدى
السؤال سبق طرحه:
http://www.delphi4arab.net/forum/showthread.php?tid=5
http://www.delphi4arab.net/forum/showthread.php?tid=3040
الأرقام دون فاصلة:
كود :
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not (Key in ['0'..'9', DecimalSeparator, #8]))
or ((Key = DecimalSeparator) and (Pos(DecimalSeparator, (Sender as TEdit).Text) > 0))
then Key := #0;
end;بالتوفيق.
هل يمكن اجبار علي ادخال رقم في خانة edit - m_m_saad - 15-07-2010
جزاكم الله خيرا علي الاجابه
ولكن اي الاجابتين افضل