用控件WebBrowser，打开DELPHI窗口

Question

我在一个窗口上放了WebBrowser控件，然后调用一个网页文件，当我点击网页中的某个按钮时，打开一个指定的DELPHI窗口，不知如何做，

Answer 1

在 WebBrowser 的BeforeNavigate2事件中写代码：
procedure TMain.myWebBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  sUrl: WideString;
begin
  try
    sUrl:=Uppercase(trim(URL));
    //开始分析字符串，满足条件，弹出窗口
     //弹出窗口代码.......
  finally
    //不转到另一页面
    Cancel:=true;
  end;
end;

Answer 2

以前用WebBrowser做程序的主界面用到过，只要美工水平高，做出来的界面很不赖。

Answer 3

我刚刚上传了一个别人写的 demo，你可以到 http://download.csdn.net/user/Adayuer 去下载

Answer 4

Adayuer 做的不错。我下了。多谢，多谢，我也正好用到这！