Q&A

  • 질문제목과 분류를 꼭 해주시길 부탁드립니다.


procedure TMyThread.Execute;

begin

Form1.ClientS.active:=true;

sleep(2000);

end;



procedure TForm1.ClientSConnect(Sender: TObject; Socket: TCustomWinSocket);

begin

memo1.Lines.Add('yes');

Form1.ClientS.close;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

i,j:integer;

begin

MyThread:=TMyThread.Create(false);



end;



0  COMMENTS