一、添加 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 οnmοuseοver="javascript:this.className='c1';" οnmοuseοut="this.className='c2';" style="border:0px solid #fff;width:50px;height:50px;margin:0px;padding:0px;" οnclick="javascript:location.href='./extation/extation1';">
<img src="add.png" οnclick="" alt=""></img>
</button>