안녕하세요....간단한 문제인거 같은데 꽤 애를 먹이고 있습니다.
TTCPServer component의 OnAccept 이벤트에서 ClientSocket으로부터
데이타를 읽어서 읽은 내용을 다른 폼을 띄워서 보여주려고 합니다.
procedure TForm1.TcpServer1Accept(Sender:TObject; Clientsocket:TCustomIpClient);
var
frmNew : TForm2;
......
......
...... ClientSocket에서 데이타 읽기......
if ( nMessageType = 1) then
begin
frmNew := TForm2.Create(self);
frmNew.Show;
end;
end;
위와 같이 코딩을 했는데 frmNew가 보여지다가 먹통이 된상태로 빠져버리네요.
마우스는 모래시계 모양이 되버리고요....
에곰...어느곳을 봐야할지 ...도움을주시면 고맙겠습니다.
폼 생성을 다른곳에서 먼져하시고 데이타를 frmNew로 넘겨주는부분만 처리하시면 될듯한데요