كيف ألون محتوى edit

[saber-bsa]

السلام عليكم ورحمة الله وبركاته

كيف ألون محتوى Edit
بالشرط الذي احدده
أضع فيها ارقام من 0 إلى 10
إذا كان الرقم تحت 5 يكون أحمر
إذا كان 5 فاكثر يكون اخظر

[manoubi77]

تضيف "boutton" تضع به
if strtoint(edit1.Text)<=5 then
begin
edit1.Color:=ClRed;
end
else if strtoint(edit1.Text)<10 then
begin
edit1.color:=ClLime;
end

[saber-bsa]

السلام عليكم
بارك الله فيكم شباب
لقد تم إيجاد طريقة لما ذكرته سابقا
وهي بوضع الكود الذي زودني به الأخ الكريم
manoubi77
في خاصية عند التغيير للـ edit
:monster1: