CppWebBrowser的疑问

[sw4419]

在form1的button事件里执行
fomr2->CppWebBrowser->Navigate(WideString("http://www.sina.com"));
现希望实现以下工作：
if(form2的CppWebBrowser导航出错,比如：404等等)
//如何在form1里判断form2的CppWebBrowser控件导航成功与否？
{
//
}
else
{
form2->Show();
}

[ccrun.com]

在Form1单元中声明并定义CppWebBrowserNavigateError等事件处理函数,然后在Form2单元中包含Form1单元的头文件,再将CppWebBrowser的OnNavigateError事件指向Form1的CppWebBrowserNavigateError,如:

CppWebBrowser1->OnNavigateError =
    (TCppWebBrowserNavigateError)&Form1->CppWebBrowserNavigateError;

[sw4419]

[Quote=引用 1 楼 ccrun 的回复:]
在Form1单元中声明并定义CppWebBrowserNavigateError等事件处理函数[/Quote]
妖哥，这个函数该如何实现？谢谢

[ccrun.com]

简单的例子,假设Form1所在的单元是Unit1,Form2所在的单元是Unit2:
Unit1.h文件中:

private:
    void __fastcall CppWebBrowserNavigateError(TObject *Sender,
          LPDISPATCH pDisp, Variant *URL, Variant *Frame,
          Variant *StatusCode, VARIANT_BOOL *Cancel);

Unit1.cpp文件中:

void __fastcall TForm1::CppWebBrowserNavigateError(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL, Variant *Frame, Variant *StatusCode,
      VARIANT_BOOL *Cancel)
{
    // 填入自己的代码
}

Unit2.cpp文件中:

#include "Unit1.h"
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
    CppWebBrowser1->OnNavigateError =
            (TCppWebBrowserNavigateError)&Form1->CppWebBrowserNavigateError;
}