29-07-2013, 08:16 PM
السلام عليكم...
أعتقد أن الأخ hmidadz يقصد أن مربع النص يقبل فقط القيم من 0 إلى 31.
1. اضبط الخاصية MaxLength لمربع النص على 2.
2. في إجراء الحدث OnKeyPress اكتب الكود التالي لمنع كتابة الرموز غير الأرقام:
3. في الحدث OnChange اكتب الكود التالي لمنع تجاوز القيمة 31، حبث edtDay هو اسم مربع النص:
نرجو الاستفادة و السلام.
أعتقد أن الأخ hmidadz يقصد أن مربع النص يقبل فقط القيم من 0 إلى 31.
1. اضبط الخاصية MaxLength لمربع النص على 2.
2. في إجراء الحدث OnKeyPress اكتب الكود التالي لمنع كتابة الرموز غير الأرقام:
كود :
if Key > #31 then begin
if not (Key in ['0'..'9']) then Key := #0;
end;3. في الحدث OnChange اكتب الكود التالي لمنع تجاوز القيمة 31، حبث edtDay هو اسم مربع النص:
كود :
if Length(edtDay.Text) = 2 then begin
if StrToInt(edtDay.Text) > 31 then begin
edtDay.Text := '31';
edtDay.SelStart := 2;
end;
end;نرجو الاستفادة و السلام.