Delphi 与网页结合的开发程序主界面

用Delphi 做程序的主框架。利用页面
做导航窗口，那么如何才让Delphi来响应
页面中的单击操作呢？其实很简单
1.在主程序中加一个TWebBrowser组件
  用它来显示页面
2.在BeforeNavigate2事件中处理响应操作
  例如：
  If Pos('varex:0101', URL)>0 Then
  begin
    //执行一些操作
    SendMessage(frmMain.Handle,ESD_MSG,101,0);
    Cancel:=True;
  end;
 
  代码说明： varex:0101 是网页中一个热点所指向的连接
  网页中的代码
  <img src="image/111.jpg" width="396" height="184" border="0" usemap="#Map">
  在网页中每个图像都有usemap，为它起一个名字
  <map name="Map">
    <area shape="rect" coords="19,4,100,24" href="varex:0101"> 
    <area shape="rect" coords="21,33,100,49" href="gzgl.html">
  </map>