Thema: Delphi Tabbed Browsing Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#3

Re: Tabbed Browsing Problem

  Alt 22. Mär 2005, 16:10
Falls du mehrere Objekte auf dem TabSheet hast kannst du mit einer Schleife den Webbrowser raussuchen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  WB: TWebBrowser;
begin
  for i := 0 to PageControl1.ActivePage.ComponentCount - 1 do
  begin
    if PageControl1.ActivePage.Components[i] is TWebBrowser then
    begin
      WB := TWebBrowser(PageControl1.ActivePage.Components[i]);
      Break;
    end;
  end;
  WB.Navigate('http://google.de');
end;
Oder wenn du weißt welches Control es ist dann direkt drauf zugreifen:
TWebBrowser(PageControl1.ActivePage.Components[0]).Navigate('http://google.de'); MfG Pr0g
  Mit Zitat antworten Zitat