在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
例如: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
procedure TServerForm.Timer1Timer(Sender: TObject);
begin Form2.show; timer1.Enabled:=false; end;
===============================脑残分割线==================================== 后来冷静了想了一下: procedure TServerForm.IdTCPServer1Connect(AThread: TIdPeerThread); begin end;
这样就解决了··
作者:DJ尐舞 欢迎转载,转载请注明出处 http://djbone.cnblogs.com |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论