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:

markieren

Delphi-Quellcode:

 private
  WB: TEmbeddedWB;
  Tab: TTabSheet;

zusammenfalten · markieren

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!

Schau dir mal das Property ActivePage und ActivePageIndex an

Falls du mehrere Objekte auf dem TabSheet hast kannst du mit einer Schleife den Webbrowser raussuchen:

zusammenfalten · markieren

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

Hallo!

Habe fuer meinen Browser eine solche Funktion gemacht:

markieren

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;

danke für die hilfe!

habs mit Pr0gs code gemacht.

wenn's auf dem TabSheet genau ein TWebbrowser gibt, ist
for i := 0 to PageControl1.ActivePage.ComponentCount - 1 do ein overkill.

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

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

Zitat von Pr0g:

Oder wenn du weißt welches Control es ist dann direkt drauf zugreifen:
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:
Form1.Webbrowser1.Navigate('www.google.de'); Wie geht das nun im aktiven Tab?