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

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

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

unitinterfaceusestypeinterface'{c4d244b0-d43e-11cf-893b-00aa00bdce1a}'functionlongintlongintvarstdcallfunctionintegerlongintvarstdcallendclassprotectedfunctionlongintlongintvarstdcallfunctionintegerlongintvarstdcallendclassprocedureprivate{ Private declarations }public{ Public declarations }endvarimplementation{$R *.dfm}{ TWebBrowser }functionIntegervarbeginendfunctionIntegerIntegervarbegin'不得闲测试'endprocedurebegin'\..\test.htm'

end;

本文转自 不得闲 博客园博客，原文链接： http://www.cnblogs.com/DxSoft/archive/2010/01/01/1637661.html ，如需转载请自行联系原作者