Thema: Delphi Webbrowser Popupblocker

Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#8

Re: Webbrowser Popupblocker

  Alt 30. Jan 2005, 22:24
Danke fuer die Ideen!

Mein Ansatz ist der folgende:
Ein neues Fenster wird nur geoeffnet, wenn ReadyState des Webbrowsers READYSTATE_COMPLETE ist,
d.h das Dokument fertig geladen ist.

Wie findet ihr diese Idee?
Was fuer Tuecken hat dieser Code? (Mal schauen, ob Ihr's herausfindet... ...)

Delphi-Quellcode:
procedure TfrmMultiDocBrowser.OnNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
    if (Sender as TEmbeddedWB).ReadyState <> READYSTATE_COMPLETE then
    begin
      ppDisp := nil;
      Cancel := True;
    end;
end;
Thomas
  Mit Zitat antworten Zitat