답변고맙습니다.
제가 게을러서 아직 테스트를 못해봤는데
친히 오려주신 소스때문에 조금 이해가 됩니다. ^^
테스트 해보고 잘 안되면 다시 물어 봐도 되죠??
그럼 복 많~~이 받으세요..



ㅇ 님이 쓰신 글 :
: 하니 님이 쓰신 글 :
: : 제가 만들려는 것은  클라이언트소켓을 배열로 동적생성해서 각각의 컴퓨터에 연결된 상태에서 동시에 데이타를 보내고 받는 프로그램을 만들려고 하는데요..(그냥 구상중..)
: :
: : 동적으로 생성된 컴포넌트에 이벤트를 컴포넌트에 연결하려구 하거든요??
: :
: : 근데 이벤트 처리하는것을 각각 따로 처리해야 한다는 겁니다..ㅡㅡ;
: :
: : 다시 이야기 하면 소켓1번에 들어온 데이타랑 소켓2번에 들어온 데이타가 구분이 되야 하는데..
: :
: : (말하기가 넘 어렵네요.. ㅡㅡ;)
: :
: : 하나의 메인 스레드가 100개의 소켓을 관리 하는데..
: :
: : 100개의 소켓이 동시에 데이타를 전송해서
: :
: : 데이타가 들어오면 어떤 곳에서 데이타가 들어왔는지 구분해야 하는데
: :
: : 정적으로 생성하면 각각의 이벤트에 따로 정의하면 되자나요...
: :
: : 동적으론 불가능한지 알고 싶습니다.
: :
: : 고수님들 많은 고언 부탁드립니다.
:
: 이벤트 핸들러는 공유할 수 있습니다.
:
: 예를 들면 아래와 같습니다. 
:
: //---------------------------------------------------------------------------
: #define CSOCK_COUNT 10
: TClientSocket *g_csocks[CSOCK_COUNT];
:
: //---------------------------------------------------------------------------
: __fastcall TForm1::TForm1(TComponent* Owner)
:         : TForm(Owner)
: {
: }
:
: //---------------------------------------------------------------------------
: void __fastcall TForm1::FormCreate(TObject *Sender)
: {
:  for(int i=0; i<CSOCK_COUNT ;i++){
:    g_csocks[i] = new TClientSocket(this);
:    g_csocks[i]->Address = "127.0.0.1";
:    g_csocks[i]->Port = 1234;
:    g_csocks[i]->OnConnect = ClientSocket1Connect;
:    g_csocks[i]->OnRead = ClientSocket1Read;
:   /*
:   TClientSocket에는 TComponent에서 상속받은 Tag 멤버가 있습니다.
:   Tag에 배열의 인덱스 등을 저장할 수도 있습니다.
:   예를 들어, g_csocks[i]->Tag = i; 이렇게 해 두고 이벤트 핸들러 등에서 사용할 수 있습니다.
:   */
:  }
: }
:
: int g_Count=0;
: //---------------------------------------------------------------------------
: void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
:       TCustomWinSocket *Socket)
: {
:  //Socket->Data = 작업 (대상) 객체 등; //차후 OnRead 등에서 사용
:  Socket->Data = new int(++g_Count);
:  // Sender는 위의 g_csocks의 멤버들 중 하나임.
:  TClientSocket *csock = dynamic_cast<TClientSocket*> (Sender);
:  if(NULL==csock) return;
:  //
: }
: //---------------------------------------------------------------------------
:
: void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
:       TCustomWinSocket *Socket)
: {
:   Memo1->Lines->Add(IntToStr(*(int*)Socket->Data)+":"+Socket->ReceiveText());
: }
:
: //---------------------------------------------------------------------------
:
: void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
:       TCustomWinSocket *Socket)
: {
:  for(int i=0; i<CSOCK_COUNT ;i++){
:    delete (int*)Socket->Data;
:  }
: }
:
: //---------------------------------------------------------------------------
:
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
:  for(int i=0; i<CSOCK_COUNT ;i++){
:    g_csocks[i]->Active = true;
:  }
: }
:
: //---------------------------------------------------------------------------