BCB:使用CppWebBrowser判断网页加载完成
void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender, LPDISPATCH pDisp, Variant *URL) { Memo1->Lines->Add("Complete"); //每次触发的Complete if(pDisp==CppWebBrowser1->DefaultDispatch) // TWebBrowser用DefaultInterface或DefaultDispatch都正常 { Memo1->Lines->Add("all Complete!"); //最后触发的Complete //TodoSomething(); } }