Problem mit zur Laufzeit erstelltem Button

[Fox80]

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;