webbrowser动态创建和释放问题

如果网页不卡，很流畅的话不会一直循环的。可以设置超时时间，超时就break退出循环或不用消息循环的方式放到线程里。
可以换下面的语句试试：

Delphi/Pascal code
?
1
2
    
while WB.ReadyState <> $00000004 do
Application.ProcessMessages;

 $00000004是htmlReadyStatecomplete值。