Das funktioniert leider nur wenn ich die Browser-Kompo direkt auf einen Tab zu liegen habe. Wenn ich aber ein neues Tabsheet erzeugen lasse,:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
NewTab : TTabSheet;
NewWeb: TWebBrowser;
begin
NewTab:= TTabSheet.Create(Form1.PageControl1);
NewTab.Visible := True;
NewTab.Caption := 'Neue Seite';
NewTab.PageControl := Form1.PageControl1;
Form1.PageControl1.ActivePage:= NewTab;
NewWeb:=TWebBrowser.Create(NewTab);
TWinControl(NewWeb).parent := NewTab;
NewWeb.Align:= alClient;
NewWeb.OnNewWindow2:= NewWindow;
NewWeb.Visible := True;
end;
procedure TForm1.NewWindow(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
var
Tabsheet: TTabsheet;
Browser: TWebBrowser;
begin
Form1.Button1Click(nil);
TabSheet:= Form1.PageControl1.ActivePage;
ppDisp:= (PageControl1.ActivePage.Controls[0] as TWebBrowser).DefaultInterface;
end;
funktioniert das leider nicht mehr.