procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
label3.Caption:='1'; //完成打开网页
end;
procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
label3.Caption:='0'; //开始打开网页
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
label3.Caption:='0'; //正在打开网页
end;
我用label3.caption的值 0/1 来判断网页是否打开完成
现在问题是:程序运行,自动打开listbox里的值 ,然后付值到edit2.text,然后打开网页,WebBrowser1判断是否打开完成,如果没有打开,再次打开网页,判断3次,如果再打不开,跳出,打开listbox 下一个网址,直到完成
请问,这个判断3次要怎么写