任何使webbrowser弹出的页面只在一个页面显示

void __fastcall TForm1::CppWebBrowser1NewWindow2(TObject *Sender,
      LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel)
{
  if (flag==true)
  {
     TForm1  *NewWindow   =  new TForm1(this);
     NewWindow->Visible=false;
     * ppDisp=NewWindow->CppWebBrowser1->Application;
     NewWindow->FormCreate(NULL);
     NewWindow->Close();
     AnsiString strLogin="http://www.cnblogs.com/missu";
     CppWebBrowser1->Navigate(WideString(strLogin));

     flag=false;
  }
}