Delphi的WebBrowser改造，对网页中Alter等对话框的改造方法

   刚有一段时间没做博客了，今天刚好有人问了这个问题，而自己以前也弄过，于是这里有了一篇新的博文。

关于改造WebBrowser控件的一些技巧，大家可以参考MSDN或者蒋晟写的一个东西，里面有讲的很详细的，今天我就说一下这个alter对话框的修改和过滤的方法：

很简单，只要咱们继承IDocHostShowUI这个接口，实现里面的ShowMessage方法就行了。

废话不多说，代码在这里：

 

DelphiCode:

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw,ActiveX; type