تنسيق شرطي للمكون TDBEdit

[Delphi4Us]

كود :

If Edit1.text = '1' then Edit1.color:=red else Edit1.color:=White

ببساطة في الحدث OnChange اختبر محتوى الاداة

اذا اردت ان تربط كل الادواة بحدث واحد

كود :

if (sender as Tedit).text='1' then (sender as Tedit).color:=red else (sender as Tedit).color:=White;