Zitat von
d3zemb3r:
Da bekomme ich eine Zugrifssverletzung
Du hast auch jedem TabSheet, wo ein WebBrowser drauf ist, diesen WebBrowser wie eben beschrieben zugewiesen?
Ansonsten baue noch eine Überprüfung ins OnChange des PageControl ein:
Delphi-Quellcode:
if (PageControl1.ActivePage <> nil) and (PageControl1.ActivePage.Tag <> 0) then
Edit1.Text := TWebBrowser(PageControl1.ActivePage.Tag).LocationURL else
Edit1.Text := 'Ungültig oder was auch immer';