Problem mit PageControl

[youuu]

ignorieren

[mirage228]

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';

[d3zemb3r]

Zitat von mirage228:

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';

Was muss ich denn wo zuweise??

[mirage228]

Um mich mal selbst zu zitieren:

Zitat von mirage228:

Du könntest beim Erzeugen den TWebBrowser dem TTabSheet zuordnen:
TabSheet.Tag := Integer(WebBrowser);

[d3zemb3r]

Zitat von mirage228:

Um mich mal selbst zu zitieren:

Zitat von mirage228:

Du könntest beim Erzeugen den TWebBrowser dem TTabSheet zuordnen:
TabSheet.Tag := Integer(WebBrowser);

Das muss da hin, wo der Tab generiert wird oder????

Also:
pageControl.Tag := Integer(TWebBrowser);

[quendolineDD]

Weißt du überhaupt was du da ansatzweise machst? Das scheint mir ganz und gar nicht so.

[d3zemb3r]

Zitat von quendolineDD:

Weißt du überhaupt was du da ansatzweise machst? Das scheint mir ganz und gar nicht so.

Wenn ich es wüsste, würde ich ja nicht fragen.

Ich weiss leider nicht, wie es geht, sry

[mirage228]

Zitat von quendolineDD:

Weißt du überhaupt was du da ansatzweise machst? Das scheint mir ganz und gar nicht so.

Mir auch nicht.

Aber da ja gilt: - will ich mal nicht so sein.

Ein PageControl hat einzelne Seiten ("Tabs"), die heißen TabSheets (Klasse TTabSheet).
Wenn Du nun also einen ein neuen Tab in das PageControl erzeugst und dabei auch den dazugehörigen TWebBrowser erzeugst, stellst Du sicher, dass Du diese Zuordnung von Tab und WebBrowser später wieder abgreifen kannst (daher die Zuweisung der neuen TWebBrowser-Instanz über das Tag-Feld an das Tabsheet - und nicht ans PageControl). Code möchte ich Dir dazu keinen geben, Du sollst Dir das bitte selbst erarbeiten.