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

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

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

الرجوع الى أعلى الصفحة


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