منتديات أهل الجزائر
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

جعل مربع التحرير TEdit لا يقبل الا الارقام فقط

 :: منتديات البرمجة :: منتدى تعلم البرمجة

استعرض الموضوع التالي استعرض الموضوع السابق اذهب الى الأسفل

جعل مربع التحرير TEdit لا يقبل الا الارقام فقط Empty جعل مربع التحرير TEdit لا يقبل الا الارقام فقط

مُساهمة  alla23 الخميس نوفمبر 26, 2015 8:45 pm

بسم الله الرحمن الرحيم

جعل مربع التحرير TEdit لا يقبل الا الارقام فقط

الكود:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9', #8, DecimalSeparator]) then
    key := #0;
end;
alla23
alla23
عضو ماسي
عضو ماسي

عدد المساهمات : 82
نقاط : 212
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع التالي استعرض الموضوع السابق الرجوع الى أعلى الصفحة

- مواضيع مماثلة

منتديات أهل الجزائر :: منتديات البرمجة :: منتدى تعلم البرمجة

صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى