用WebBrowser开发浏览器如何辨别 showModalDialog类型的新开网页

用WebBrowser开发多页浏览器  遇到是showModalDialog类型的网页后，不能够打开，
  如何辨别是showModalDialog类型的新开网页，然后不在新页中打开呢？
在OnNewWindow2我写了如下代码，能够在这里判断，是showModalDialog类型的就不执行下面的代码
var
  WB: TEmbeddedWB;
begin
  WB := NewPage;
  if WB <> nil then
    ppDisp := WB.Application;
end;