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

اذهب الى الأسفل

جعل مربع التحرير TEdit لا يقبل الا الارقام فقط  Empty جعل مربع التحرير 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
مبرمج

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

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

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


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