在webbrowser中如何做一个循环: 1.打开http://www.aaa.com;2. 打开http://www.bbb.com;3.打开http://www.aaa.com;? 在webbrowser中如何做一个循环: 1.打开http://www.aaa.com;网页下载完毕后, 执行 2. 打开http://www.bbb.com;网页下载完毕后 执行 3.打开http://www.aaa.com;? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我是穷人本想敲你一把,想想还是算了你也是穷人。记得分都给我呀:),不给也浪费了。正确答案: 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;==================因为是随手打的可能会出现错误,不懂时再问我。 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);beginend; fastreport的方从报表谁搞过发我个例子看看吧,谢谢 这回麻烦可大了,,,,,,,,,,,,,,,,,,,,,,,,, 并行I/O方式串口编程的问题 如何主动抛出异常? fastreport动态打印问题?(分数高:100)急!急!急!急!急! 有没有Delphi里使用AVCapture视频捕捉控件的例程? 我想用delphi, 你认为最好最快入门到精通的方法是什么? 做好了含bmp的*.res后,在程序中怎么把里面的bmp文件画出来 哪里有DELPHI的API函数的具休用法的帮助书下啊? 关于delphi接口编程。 在两个不同的机器上,两个程序如何通讯? 简单问题的请教
正确答案: 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;==================
因为是随手打的可能会出现错误,不懂时再问我。
const pDisp: IDispatch; var URL: OleVariant);
beginend;