Delphi使用IdTcp控件，在IdTCPServer1Connect事件中对未显示出的Form操作发生死锁

例如：Form2中包含几个Button,1个listbox（如果什么控件都没有可能不会发生死锁）

在IdTCPServer1Connect事件中加入

 

procedure  TServerForm.IdTCPServer1Connect(AThread: TIdPeerThread);
begin

　　Form2.show;

end ;

 

然后就发生死锁。具体原因还没找出，不过找到了一个解决方法：

通过添加一个timer可以将timer1.interval设为1,Enable=false然后

procedure TServerForm.IdTCPServer1Connect(AThread: TIdPeerThread);

begin

　　timer1.Enable:=true;
end;

 

 

procedure  TServerForm.Timer1Timer(Sender: TObject);
begin

　Form2.show;
  timer1.Enabled: = false;
end ;

 

 ===============================脑残分割线====================================

后来冷静了想了一下：

procedure TServerForm.IdTCPServer1Connect(AThread: TIdPeerThread);

begin

　　AThread.Synchronize(Form2.Show);

end;

 

这样就解决了··

 

作者：DJ尐舞

欢迎转载，转载请注明出处 http://djbone.cnblogs.com

转载于:https://www.cnblogs.com/djbone/archive/2009/03/22/1419055.html