جعل مربع التحرير 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;

alla23
عضو ذهبي
عضو ذهبي

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

http://delph.forumalgerie.net

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

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


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