Delphi下JS和FORM的互操作

一、添加 BeforeNavigate2 事件处理过程

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;

  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

  Headers: OleVariant; var Cancel: WordBool);

var

  uri: string;

begin

  uri := string(URL);

    try

      handleJSEvent(uri);

    except

    end;

    Cancel := true;//让页面保持原来状态，阻止跳转到新页面

end;

二、定义JS事件处理过程

procedure TForm1.handleJSEvent(URL: string);

begin

//添加代码

end;

三、htm中给按钮添加点击事件

<button onmouseover="javascript:this.className='c1';" onmouseout="this.className='c2';" style="border:0px solid #fff;width:50px;height:50px;margin:0px;padding:0px;" onclick="javascript:location.href='./extation/extation1';">

<img src="add.png" onclick="" alt=""></img>

</button>