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