Tabbed Browsing Problem

[Gentleman]

Hi!

Ich nutze ein PageControl, bei dem ich die TabSheets zur Laufzeit erstelle. In jedem TabSheet ist ein Webbrowser, der auch zur Laufzeit erstellt wird. Zustätzlich befindet sich eine Navigationsleiste auf der Form. Mein Problem ist aber nun folgendes:

Woher weiß ich welcher Browser gerade Aktiv ist, damit ich ihn navigieren kann?

Hier ist mein Code:

Delphi-Quellcode:

 private
  WB: TEmbeddedWB;
  Tab: TTabSheet;

Delphi-Quellcode:

with PageControl1 do
  begin
    Tab:= TTabSheet.Create(Self);
      with  Tab do
        begin
          PageControl := PageControl1;
          TabVisible := true;
          Name := 'Tab_' + IntToStr(PageIndex);
        end;
  end;

  with WB do
    begin
      WB:= TEmbeddedWB.Create(Tab);
      TControl(WB).Parent:= Tab;
      TControl(WB).Name:= 'WB_' + IntToStr(Tab.PageIndex);
      WB.Align:= alClient;
      WB.Navigate('http://www.google.de');
    end;

Hoffe ihr könnt mir das etwas weiterhelfen.

thx im Voraus!

[Alexander]

Schau dir mal das Property ActivePage und ActivePageIndex an :)

[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:

Delphi-Quellcode:

TWebBrowser(PageControl1.ActivePage.Components[0]).Navigate('http://google.de');

MfG Pr0g

[toms]

Hallo!

Habe fuer meinen Browser eine solche Funktion gemacht:

Delphi-Quellcode:

function TfrmMyBrowser.GetCurrentWB: TEmbeddedWB;
begin
  Result := nil;
  if PageControl1.ActivePage.ControlCount > 0 then
    if PageControl1.ActivePage.Controls[0] is TEmbeddedWB then
      Result := TEmbeddedWB(PC.ActivePage.Controls[0])
end;

[Gentleman]

danke für die hilfe! :stupid:

habs mit Pr0gs code gemacht.

[toms]

wenn's auf dem TabSheet genau ein TWebbrowser gibt, ist

Delphi-Quellcode:

for i := 0 to PageControl1.ActivePage.ComponentCount - 1 do

ein overkill.

[Pr0g]

Was verstehst du unter "overkill", die Schleife wird einmal ausgeführt.

[toms]

Zitat:

Zitat von Pr0g

Was verstehst du unter "overkill", die Schleife wird einmal ausgeführt.

Meine nur: Warum eine Schleife nehmen, wenn's auch ohne geht

[Muellermilchtrinker]

Zitat:

Zitat von Pr0g

Oder wenn du weißt welches Control es ist dann direkt drauf zugreifen:

Delphi-Quellcode:

TWebBrowser(PageControl1.ActivePage.Components[0]).Navigate('http://google.de');

Was ist wenn man das von Form2 in Form1 machen will?
Ich hab das davor wo ich nur einen Webbrowser hatte (keine PageControl), so gemacht:

Delphi-Quellcode:

Form1.Webbrowser1.Navigate('www.google.de');

Wie geht das nun im aktiven Tab?