太简单的没有，
但是你可以吧左面的一列的edit按住shift，一个一个选上，在onChange事件里写
if Tedit(Sender).Text='7' then
Tedit(Sender).Color :=clRed
else
Tedit(Sender).Color :=clWindow;
加个判断.
判断当edit[i].text ='7'的时候将edit的字体颜色改为红色!
yuchunkai88 回答的很好，也很简洁，顶一个啊！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024