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(); } }
转载于:https://www.cnblogs.com/CPYER/p/3459546.html