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:
URL := PageControl1.ActivePage.Caption; Viele Grüße

[d3zemb3r]

Zitat von mirage228:

Wo steht die Adresse denn drin? Im Titel-Text der PageControl-Seite?
Wenn ja, dann:
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 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:
TabSheet.Tag := Integer(WebBrowser); Und dann im OnChange des PageControls schreibst Du einfach:
Edit1.Text := TWebBrowser(PageControl1.ActivePage.Tag).LocationURL; Viele Grüße

Edit: Rechtschreibfehler

[d3zemb3r]

Zitat von mirage228:

Ah, jetzt habe ich es verstanden.

Du könntest beim Erzeugen den TWebBrowser dem TTabSheet zuordnen:
TabSheet.Tag := Integer(WebBrowser); Und dann im OnChange des PageControls schreibst Du einfach:
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 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