Popups beim TWebBrowser spurlos(!) unterdrücken

[Ungeübter]

Hi,

kann ja sein dass ich mich um die Zeit irgendwie zu blöd anstelle, aber es gibt ca. 1000 Topics im Forum darüber dass man Popups mit dem Setzen der Cancel-Variable auf True in OnNewWindow "blocken" kann. Nur hat das doch lediglich den Effekt dass das popop im Webbrowser direkt geöffnet wird anstatt vollkommen unterdrückt zu werden (so steht es ja auch in der Hilfe). Nur muss es doch irgendwie möglich sein die normal geöffnete Seite beizubehalten UND das Popup zu blocken??

Gruß

[toms]

Hallo,

Schau dir mal mein Mini Webbrowser Demo an. Dort habe ich einen Mini Popupblocker eingebaut.

[Esolit]

Ah, danke toms. Du hast ja eigentlich nur die Browserschnittstelle des neuen Fensters auf eine WebBrowser-Komponente in einem neuen Tab gelegt. Eigentlich ist es aber so dass ich dieses Popup überhaupt nicht brauche, sprich eigentlich auch nicht erst auf einen neuen TWebBrowser umleiten müsste und anschließend direkt wieder freigeben müsste wie ich es probiert habe und auch funktioniert, allerdings gibt es doch bestimmt Möglichkeiten das direkter zu gestalten ??

Delphi-Quellcode:

var
  Del: Boolean = False;
  NewWindow: TWebBrowser;


procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  NewWindow := TWebBrowser.Create(self);
  ppDisp := NewWindow.DefaultDispatch;
  Del := true;
end;


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if Del = true then begin
     NewWindow.Free;
     Del := false; 
  end;
end;

Gruß,

Esolit

[toms]

Setze einfach Cancel := True;

[Wannabe]

Mhm ich glaube er will das Popup nicht öffnen sondern quasi ignorieren, dazu ist Cancel aber nicht geeignet.
Siehe Delphi-Hilfe:

Code:

Wenn Cancel auf true gesetzt wird, versucht der Web-Browser, die Zielressource im aktuellen Fenster anzuzeigen