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

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

جعل مربع التحرير 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;
avatar
alla23
عضو ماسي
عضو ماسي

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

http://delph.forumalgerie.net

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

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


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