Delphi中使用EmbeddedWB屏蔽指定内容的网页对话框

Delphi中使用EmbeddedWB屏蔽指定内容的网页对话框

   标签：IT数码2011-12-01 15:45 星期四

　　EmbeddedWB是一款Delphi的第三方控件，该控件比Delphi内置的TWebBrowser扩展了许多功能，有些功能的确很好用。
　　例如，要实现在浏览、控制网页过程中，屏蔽指定内容的网页对话框，就十分容易。只需要在其 OnShowMessage 事件中对返回值设置为 S_OK 即可。而对其他不需屏蔽的对话框，设置函数返回值为 S_FALSE 则可使其仍然照常弹出。
　　同时，我们还可以设置对话框的返回值。在弹出的对话框中，通常包括确定和取消按钮，这两个按钮的返回值分别为 IDOK 和 IDCANCEL。在例程中我设置了对话框的返回值为 IDCANCEL，模拟的是用户点击了取消按钮。如果需要返回点击确定按钮，那么将 plResult 设置为 IDOK 就可以了。
　　
　　
　　// 使用EmbeddedWB屏蔽指定内容的网页对话框
　　function TForm1.EmbeddedWB1ShowMessage(Sender: TObject; HWND: Cardinal;
　　 lpstrText, lpstrCaption: PWideChar; dwType: Integer;
　　 lpstrHelpFile: PWideChar; dwHelpContext: Integer;
　　 var plResult: Integer): HRESULT;
　　begin
　　 if lpstrText = '要屏蔽的网页对话框内容' then
　　 begin
　　 plResult := IDCANCEL; // IDOK
　　 Result := S_OK;
　　 end
　　 else
　　 Result := S_FALSE;
　　end;