Tabbed Browsing Problem

[Pr0g]

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