تحديد عدد الاحرف في TEdit

[hmidadz]

لديا Tedit1 خاص بالايام الاشهر كيف يمكنني تحديده ما بين 0 و31 ؟

[SMP3]

PHP كود :

Edit1.MaxLength:=31; 


[Najy Ibraheem]

السلام عليكم...

أعتقد أن الأخ 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;

نرجو الاستفادة و السلام.

[S.FATEH]

السلام عليكم
او عن طريق استخدام TUpDown من صفحة Win32 قم بتغيير خاصية Associate الى Edit الخاص بك
ثم حدد خاصية max الى ما تريد

[Najy Ibraheem]

السلام عليكم...

أو أيضاً ComboBox مع ضبط الخاصية Style على csDropDownList.

سلام.

[hmidadz]

تم الحل و الله اشكركم يا اخوان بارك الله فيكم على الردود