showModelessDialog im TWebBrowser

[Cosamia]

Hallo zusammen,

ich habe mal wieder eine Frage an euch.
Auf einer Webseite welche ich mit TWebBrowser aufrufe, wird ein Webseiten Dialog mit folgendem Code aufgerufen:

Code:

F1 = window.showModelessDialog(urlstr,window,features);

Den Aufruf dieses Dialogs gilt es jetzt zu bemerken und zu reagieren.

Code:

 htmlwindow :IHTMLWindow2;
 htmlDoc : IHTMLDocument2;


 htmlDoc := WebBrowser1.Document as IHTMLDocument2;
 htmlwindow := IHTMLWindow2(htmlDoc.parentWindow);

 htmlwindow.window.showModelessDialog := (TEventObject.Create(New_Dialog) as IDispatch);

Jetzt kennt IHTMLWindow2 leider kein showModelessDialog.

Jemand eine Idee wie ich das öffnen des Dialogs mitbekommen kann?

Vielen Dank.