左扬民的回答：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure WebBrowser1DownloadBegin(Sender: TObject); procedure WebBrowser1DownloadComplete(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin form1.WebBrowser1.Navigate('www.ivytc.com'); end; procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject); begin edit1.Text :='开始'; end; procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject); begin edit1.Text :='完成打开'; end; end. begin的回答：网页下载完成后在webbrowser的DownloadComplete事件中触发 |
