delphi4arab منتديات دلفي للعرب

[FONT=Microsoft Sans Serif]السلام عليكم ورحمة الله وبركاته

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

تضيف "boutton" تضع به

كود :
if strtoint(edit1.Text)<=5 then
begin
edit1.Color:=ClRed;
end
else if strtoint(edit1.Text)<10 then
begin
edit1.color:=ClLime;
end

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

saber-bsa

manoubi77

saber-bsa