دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

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

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

مُساهمة  djelal في 22/11/2015, 10:25 am

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

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

الرمز:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9', #8, DecimalSeparator]) then
    key := #0;
end;

djelal
مبتدئ في البرمجة

عدد المساهمات : 37
تاريخ التسجيل : 29/04/2015

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

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


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