Sender가 TEdit일겁니다.

void __fastcall TFormMain::EditEnter(TObject *Sender)
{
  (TEdit *(Sender))->Color = clYellow;
}

void __fastcall TFormMain::EditExit(TObject *Sender)
{
  (TEdit *(Sender))->Color = clWindow;
}

요렇게 한세트를 만들고, 그 Edit박스를 복사해서 쓰면 되죠. 복사하면 Event함수는 원본 그대로 따라옵니다. 즉 위의 두개의 이벤트함수를 수백개의 에디터박스가 공유하는겁니다.

틀렸으면 지적해 주세요.

궁금이 님이 쓰신 글 :
: 텍스트 박스의 색깔을 바꾸고자 합니다.
:
: void __fastcall TFormMain::Edit1Enter(TObject *Sender)
: {
:    Edit1->Color = clYellow;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall TFormMain::Edit1Exit(TObject *Sender)
: {
:    Edit1->Color = clWindow;
: }
: 과 같은 방법을 사용하면
:
: 어떤 입력값을 입력할땐 박스 안이 노란색이 되었다가
:
: 나오면 다른 색깔로 바뀌게 됩니다.
:
: 그런데 문제는 텍스트 박스가 수백개가 될때 위와 같은 방법으로 한다면
:
: 쌩노가다가 되거든요.
:
: 다른 방법이 없을까요??
:
: 위와 같은 방법은 카피해서 다른 에디트 박스에 대해서 복사하더라도
:
: 일일이 에디트 박스의 name으로 바꿔줘야 하는 곤욕이 있더라구요.
: