delphi4arab منتديات دلفي للعرب

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

المفترض اني اقوم بعمليه حسابات بسيطه ولكن
اذا حدث خطأ بالصدفة وتركت خانه edit فارغة أو بها حرف يعطي رسالة خطأ
ويهنج الدلفي
فهل يوجد كود لاجبار كتابة رقم في خانة edit واذا حدث خطأ في الكتابة ****ه يكتب رقم افتراضي أو لا يستقبله
هل هذا ممكن
وجزاكم الله خيرا

السلام عليكم

الحل موجود في المنتدي
الرابط

http://www.delphi4arab.net/forum/showthr...light=edit

و السلام عليكم

وعليكم السلام ورحمة الله وبركاته
الأخ m_m_saad أهلا ومرحبا بك في المنتدى
السؤال سبق طرحه:
http://www.delphi4arab.net/forum/showthread.php?tid=5
http://www.delphi4arab.net/forum/showthr...p?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;

لا تنسى استخدام البحث
بالتوفيق.

جزاكم الله خيرا علي الاجابه
ولكن اي الاجابتين افضل

m_m_saad

Lam.Abdeldjalil

kachwahed

m_m_saad