Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Problem mit PageControl

    Delphi
    by mirage228, 16. Jun 2009
  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...
• Forum: Sonstige Fragen zu Delphi

  Re: Problem mit PageControl

    Delphi
    by mirage228, 16. Jun 2009
  Um mich mal selbst zu zitieren:
• Forum: Sonstige Fragen zu Delphi

  Re: Problem mit PageControl

    Delphi
    by mirage228, 16. Jun 2009
  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:
  
  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';
• Forum: Sonstige Fragen zu Delphi

  Re: Problem mit PageControl

    Delphi
    by mirage228, 16. Jun 2009
  Sorry, das sollte natürlich ebenfalls "Tag" heißen. Da hättest Du aber auch ruhig drauf kommen können...
• Forum: Sonstige Fragen zu Delphi

  Re: Problem mit PageControl

    Delphi
    by mirage228, 16. Jun 2009
  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;
• Forum: Sonstige Fragen zu Delphi

  Re: Problem mit PageControl

    Delphi
    by mirage228, 16. Jun 2009
  Du könntest einfach jeder TWebBrowser Instanz von Dir das selbe "OnDocumentComplete"-Ereignis zuweisen und dort rein schreibst Du dann:
  
  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;...
• Forum: Sonstige Fragen zu Delphi

  Re: Problem mit PageControl

    Delphi
    by mirage228, 16. Jun 2009
  Wo steht die Adresse denn drin? Im Titel-Text der PageControl-Seite?
  Wenn ja, dann:
  
  URL := PageControl1.ActivePage.Caption;
  
  
  Viele Grüße