Q&A

  • 동적 생성한 컴포넌트에.. 이벤트 처리..
procedure TForm3.CreateSock(Target: TForm; Num: integer; CName: String);

begin

G_ClientSocket[Num] := TClientSocket.Create(Self);

with G_ClientSocket[Num] do begin

parent := Self;

Name := CName;

onConnect := ClientSocket1OnConnect;

end;

end;



procedure TForm3.ClientSocket1OnConnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

memo1.Lines.Add('1번 소켓 연결 성공..');

end;



제가요.. 위와 같이 해 줬거든요.. 그런데.. 소켓을 연결 시키니까..

OnConnect 이벤트가 안 일어나요.. 물론 서버에서는 접속 허가를 해 줬구요..

왜 그런지.. 답변 부탁드립니다..

0  COMMENTS