在webbrowser中如何做一个循环： 1.打开http://www.aaa.com;2. 打开http://www.bbb.com;3.打开http://www.aaa.com;?

Question

在webbrowser中如何做一个循环： 1.打开http://www.aaa.com;网页下载完毕后，
   执行 2. 打开http://www.bbb.com;网页下载完毕后
 执行 3.打开http://www.aaa.com;?

Answer 1

我是穷人本想敲你一把，想想还是算了你也是穷人。记得分都给我呀:),不给也浪费了。
正确答案：  private
    procedure FindAddress;var
  j:integer;
procedure TForm1.FindAddress();
var
  strURL:string;
begin
  strURL = ListView.item[j].Caption;
  webbrowser1.Navigate(strURL);end;procedure TForm1.Button1Click(Sender: TObject);
begin
  j:= 0;
  findAddress; 
end;procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; Progress, ProgressMax: Integer);
begin
  j := j+1;
  FindAddress;
end;==================
因为是随手打的可能会出现错误，不懂时再问我。

Answer 2

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
beginend;