WebBrowser.OnDocumentComplete := wb1DocumentComplete;
1 procedure TForm1.wb1DocumentComplete(ASender: TObject; const pDisp: IDispatch; 2 const URL: OleVariant); 3 begin 4 if wb1.ReadyState < READYSTATE_COMPLETE then 5 //加载未完成 6 else 7 //加载完成 8 end;
WebBrowser.OnDocumentComplete := wb1DocumentComplete;
1 procedure TForm1.wb1DocumentComplete(ASender: TObject; const pDisp: IDispatch; 2 const URL: OleVariant); 3 begin 4 if wb1.ReadyState < READYSTATE_COMPLETE then 5 //加载未完成 6 else 7 //加载完成 8 end;
转载于:https://www.cnblogs.com/ckcai/archive/2012/11/14/2769326.html