Thema: Delphi Tabbed Browsing Problem

Einzelnen Beitrag anzeigen

Gentleman

Registriert seit: 29. Sep 2004
302 Beiträge
 
Turbo Delphi für Win32
 
#1

Tabbed Browsing Problem

  Alt 22. Mär 2005, 16:02
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!
Lennard
Der Vorteil der Klugheit besteht darin, dass man sich dumm stellen kann. Das Gegenteil ist schon schwieriger. (Kurt Tucholsky)
  Mit Zitat antworten Zitat