Problem mit PageControl

[d3zemb3r]

Hallo,
ich erstelle durch einen Button eine neue Seite im PageCOnrtol.

Hierrauf wird nun ein TWebbrowser erzeugt.

WEnn ich nun die Seite wechsel, soll er auch in der adresseleiste die aktuelle URL aus dem aktuellen Tab auslesen.

Welche Methode im PageControl ist richtig?

[mirage228]

Wo steht die Adresse denn drin? Im Titel-Text der PageControl-Seite?
Wenn ja, dann:

Delphi-Quellcode:

URL := PageControl1.ActivePage.Caption;

Viele Grüße

[d3zemb3r]

Zitat:

Zitat von mirage228

Wo steht die Adresse denn drin? Im Titel-Text der PageControl-Seite?
Wenn ja, dann:

Delphi-Quellcode:

URL := PageControl1.ActivePage.Caption;

Viele Grüße

nein, im TWebbrowser1.LocationURL

[mirage228]

Du könntest einfach jeder TWebBrowser Instanz von Dir das selbe "OnDocumentComplete"-Ereignis zuweisen und dort rein schreibst Du dann:

Delphi-Quellcode:

procedure TForm1.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  // Vorrausgesetzt Dein TWebBrowser ist direkt dem TTabSheet untergeordnet.
  ((ASender as TComponent).Parent as TTabSheet).Caption := URL;
end;

[d3zemb3r]

Zitat:

Zitat von mirage228

Du könntest einfach jeder TWebBrowser Instanz von Dir das selbe "OnDocumentComplete"-Ereignis zuweisen und dort rein schreibst Du dann:

Delphi-Quellcode:

procedure TForm1.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  // Vorrausgesetzt Dein TWebBrowser ist direkt dem TTabSheet untergeordnet.
  ((ASender as TComponent).Parent as TTabSheet).Caption := URL;
end;

Hmm..

ich habe den twebbroser ja in einem tab also auf einer seite
ich will, wenn der tab gewechselt wird, dass dann die url aus dem erzeugten webbrowser in das adress edit eingetragen wird

[quendolineDD]

Sozusagen in dem Edit die Adresse des aktuell ausgewählten TPageControl -> TWebBrowser

[mirage228]

Ah, jetzt habe ich es verstanden.

Du könntest beim Erzeugen den TWebBrowser dem TTabSheet zuordnen:

Delphi-Quellcode:

TabSheet.Tag := Integer(WebBrowser);

Und dann im OnChange des PageControls schreibst Du einfach:

Delphi-Quellcode:

Edit1.Text := TWebBrowser(PageControl1.ActivePage.Tag).LocationURL;

Viele Grüße

Edit: Rechtschreibfehler

[d3zemb3r]

Zitat:

Zitat von mirage228

Ah, jetzt habe ich es verstanden.

Du könntest beim Erzeugen den TWebBrowser dem TTabSheet zuordnen:

Delphi-Quellcode:

TabSheet.Tag := Integer(WebBrowser);

Und dann im OnChange des PageControls schreibst Du einfach:

Delphi-Quellcode:

Edit1.Text := TWebBrowser(PageControl1.ActivePage.Tab).LocationURL;

Viele Grüße

Undefinierter Bezeichner 'Tab'

[mirage228]

Sorry, das sollte natürlich ebenfalls "Tag" heißen. Da hättest Du aber auch ruhig drauf kommen können...

[d3zemb3r]

Zitat:

Zitat von mirage228

Sorry, das sollte natürlich ebenfalls "Tag" heißen. Da hättest Du aber auch ruhig drauf kommen können...

Da bekomme ich eine Zugrifssverletzung

[youuu]

ignorieren ;)

[mirage228]

Zitat:

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:

Zitat von mirage228

Zitat:

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:

Zitat von mirage228

Du könntest beim Erzeugen den TWebBrowser dem TTabSheet zuordnen:

Delphi-Quellcode:

TabSheet.Tag := Integer(WebBrowser);

[d3zemb3r]

Zitat:

Zitat von mirage228

Um mich mal selbst zu zitieren:

Zitat:

Zitat von mirage228

Du könntest beim Erzeugen den TWebBrowser dem TTabSheet zuordnen:

Delphi-Quellcode:

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:

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:

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: :dp: - 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.