텍스트 박스의 색깔을 바꾸고자 합니다.

void __fastcall TFormMain::Edit1Enter(TObject *Sender)
{
   Edit1->Color = clYellow;
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::Edit1Exit(TObject *Sender)
{
   Edit1->Color = clWindow;
}
과 같은 방법을 사용하면

어떤 입력값을 입력할땐 박스 안이 노란색이 되었다가

나오면 다른 색깔로 바뀌게 됩니다.

그런데 문제는 텍스트 박스가 수백개가 될때 위와 같은 방법으로 한다면

쌩노가다가 되거든요.

다른 방법이 없을까요??

위와 같은 방법은 카피해서 다른 에디트 박스에 대해서 복사하더라도

일일이 에디트 박스의 name으로 바꿔줘야 하는 곤욕이 있더라구요.