TWebBrowser Komponente keine Popups

[BlueBong]

Hallo miteinander

Ich habe einen kleinen Browser mit der TWebbrowser-Komponente programmiert und möchte nun aber unterbinden, dass dort Popups geöffnet werden, da diese ja in einem anderen Internet Explorer geöffnet werden würden.

Wie kann ich die tun?

MfG Michael

[alcaeus]

Hi Bluebong,

dazu musst du im OnNewWindow2-Ereignis des Webbrowsers den Cancel-Parameter auf True setzen.

Greetz
alcaeus

[SirThornberry]

Einfach im Event "OnNewWindow2" die übergebenen Variable "Cancel" auf True setzen

[BlueBong]

Wie mach ich das?

Ihr werdet nun wahrscheinlich lachen, aber in bin in Sachen Delphi ein zimmlicher Neuling.

[SirThornberry]

Im Objectinspektor gibts das Event "OnNewWindow2" dort doppelt klicken und dann wird eine Procedure (Quelltext) erstellt. Da siehst du dann schon das "cancel"

[BlueBong]

Ja das klappt ja noch

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin

end;

Und wie setzt ich das nun auf true?

[SirThornberry]

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; 
  var ppDisp: IDispatch; var Cancel: WordBool); 
begin 
  Cancel := True;
end;

Vielleicht solltest du dir erstmal die grundlagen von Delphi anschauen

[BlueBong]

So hatte ich es vohin und dann hat es irgendwie nicht geklappt.

Trotzdem danke.

MFG Michael