while 循环出什么问题了??
我有一个网页列表,比如
1.htm
2.htm
3.htm
...
我希望窗体上的一个TWebBrowser控件可以按顺序依次访问列表里的网页
我现在是通过while结合TWebBrowser的OnDocumentComplete事件来做的:
i:=1;
while i<4 do
begin
webbrowser1.Navigate(inttostr(i)+'.htm');
end;
procedure TDataGetter.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
i:=i+1;
end;
但好像那个webbrowser控件和form是线程独立的,那边还没等到网页下载完成,while就自己又继续循环起来了,而且整个程序就像陷入死循环一样不能操作了。
请各位大哥指点迷津啊。