لديا Tedit1 خاص بالايام الاشهر كيف يمكنني تحديده ما بين 0 و31 ؟
السلام عليكم...
أعتقد أن الأخ 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;
نرجو الاستفادة و السلام.
السلام عليكم
او عن طريق استخدام TUpDown من صفحة Win32 قم بتغيير خاصية Associate الى Edit الخاص بك
ثم حدد خاصية max الى ما تريد
السلام عليكم...
أو أيضاً ComboBox مع ضبط الخاصية Style على csDropDownList.
سلام.
تم الحل و الله اشكركم يا اخوان بارك الله فيكم على الردود
