webbrowser控件到底是那个好用呢?
先查查再说,记录留念吧.
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if WebBrowser1.Application = pDisp then begin Text := '网页下载完毕!'; end;end;
webbrowser控件到底是那个好用呢?
先查查再说,记录留念吧.
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if WebBrowser1.Application = pDisp then begin Text := '网页下载完毕!'; end;end;