المشاركات : 28
المواضيع 9
:
: 0
الإنتساب : Jul 2010
السلام عليكم ورحمة الله وبركاته
المفترض اني اقوم بعمليه حسابات بسيطه ولكن
اذا حدث خطأ بالصدفة وتركت خانه edit فارغة أو بها حرف يعطي رسالة خطأ
ويهنج الدلفي
فهل يوجد كود لاجبار كتابة رقم في خانة edit واذا حدث خطأ في الكتابة ****ه يكتب رقم افتراضي أو لا يستقبله
هل هذا ممكن
وجزاكم الله خيرا
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
السلام عليكم
الحل موجود في المنتدي
الرابط
http://www.delphi4arab.net/forum/showthr...light=edit
و السلام عليكم
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
15-07-2010, 12:48 PM
(آخر تعديل لهذه المشاركة: 02-02-2011, 05:53 PM بواسطة kachwahed.)
وعليكم السلام ورحمة الله وبركاته
الأخ 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;
بالتوفيق.
المشاركات : 28
المواضيع 9
:
: 0
الإنتساب : Jul 2010
جزاكم الله خيرا علي الاجابه
ولكن اي الاجابتين افضل
