Popups im Twebbbrowser_v1

[Noobinator]

hy community

Ich bastele gerade an einem Webbrowser, und um Popups zu bekommen, habe ich folgende Procedure:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TForm1;
begin // Instanzen erzeugen
NewWindow := TForm1.Create(self);
NewWindow.Show;
ppDisp := NewWindow.Webbrowser_v11.DefaultDispatch;
end;

nun ist das Problem: sobald ich ein Popup öffnen möchte, wird mein Programm angehalten, und es öffnet sich ein Fenster mit der caption CPU, und mit ganzvielen komischen Zahlen und Buchstaben :?:

also ich möchte, das popups und links im eigenen Browser angezeigt/geöffnet werden und nicht im IE.

wo ist der Fehler? oder geht das ganz anderst?

Mfg
Noobinator

[Noobinator]

Hat keiner ne Idee wie man Popups Programmintern öffnen kann, anstatt diese mit dem IE geöffnet werden?

[mkinzler]

@Noobinator: Bei dir vergehen 24 Std aber schnell ;-)

[Noobinator]

Zitat:

Zitat von mkinzler

@Noobinator: Bei dir vergehen 24 Std aber schnell ;-)

Ich weiss^^ bin ein ungeduldiger Zeitgenosse :wink:

[DGL-luke]

(nur so btw: pushen bevor 24 std um sind ist verboten in der DP!)

Wenn das CPU-Fenster kommt, heißt das, dein programm wurde angehalten. das passiert meistens wenn eine exception auftritt, insbesondere bei AVs. wenn du einfach nochmal f9 bzw. starten drückst, sollte eine entsprechende meldung kommen, was passiert ist.

ansonsten sieht dein momentaner code ganz manierlich aus...

EDIT: vertippselt...

[Noobinator]

Ich habe gerade wieder mal spass compiliert, und auf einmal ging der code wieder, aber es wurde wieder im IE geöffnet...
also meine Frage: wann wird dieser Code aufgerufen (ist auch nur von google :wink:)
oder was muss ich wo hinschreiben, damit er bei jedem popup aufgerufen wird?

klingt doof, aber habe momentan dazu echt kein Plan :roll:

[DGL-luke]

Du soltlest erstmal prüfen, ob dein Code aufgerufen wird, geht über ein showmessage oder einen breakpoint. dann solltest du verhindern, dass der IE selber das neue Fenster aufmacht. Du solltest also Cancel auf True stellen.

wenn ppDisp irgendwas mit dem neuen fenster zu tun hat, sollte da irgendetwas drin sein, was du deinem neuen fenster bzw. dem twebbrowser darin geben kannst, aber da kenn ich mich nicht aus.

[Noobinator]

hmmm ne er wird nicht aufgerufen...
kein wunder, das nichts geht, wenn mein code einfach vom bösen delphi ignoriert wird :wink:

[DGL-luke]

na dann schau mal ob du den event zugewiesen hast....

Mich wundert sowieso die "2" im Prozedurenname.

[Noobinator]

das zuweisen geht nicht so ganz^^

also wenn ich das OnNewWindow event vom Twebbrowser_v1 nehme, dann sagt er:

unterschiedliche Parameter