用Twebbrowser做浏览器,遇到 Javascript:windows.close()则软件就出问题了。该如何解决？

Question

我也想知道有结果别忘了发mial 给我
[email protected]

Answer 1

好不容易让我找到了，与大家一起分享吧！
procedure TForm1.WebBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
if pos('javascript',url)<>0 then  Cancel:=true;
end;

Answer 2

楼上的，你的方法不行，遇到有‘javascript’的连结就不打开新的窗口，我要的只是遇Javascript:windows.close()就不处理。该如何做。

Answer 3

如此使用，我就是这样用的!要用安装的activex控件，不是delphi自带的哪个哟
procedure TForm1.Web1WindowClosing(Sender: TObject;
  IsChildWindow: WordBool; var Cancel: WordBool);
begin
Cancel:=True;
end;