Danke schon einmal für die Infos
Zitat von
marabu:
Für dein Problem mit der Anzeige der Location findest du vielleicht hier eine Anregung:
klick
Freundliche Grüße vom marabu
nunja, soweit war ich schon einmal - allerdings wird dann jeder Caption in den neuen Tabsheets der Locationname vom 1ten Browser gegeben
Delphi-Quellcode:
procedure THauptseite.WebBrowserNewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
TabSheet: TTabSheet;
newNav: TPanel;
closeTabButton: TButton;
Web: TWebbrowser;
begin
TabSheet := TTabSheet.Create(NavPageControl);
TabSheet.PageControl := NavPageControl;
...
Web.OnNewWindow2 := WebbrowserNewWindow2;
Web.OnBeforeNavigate2 := WebbrowserBeforeNavigate2;
...
end;
Delphi-Quellcode:
procedure THauptseite.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
NavPageControl.ActivePage.Caption := Webbrowser.LocationName;
end;