Tabbedbrowsing Problem - Seite Aufrufen

[Muellermilchtrinker]

Hallo DP,

ich bastel gerade aus Spaß meinen eigenen Browser. Nun habe ich bei den Tabs so meine Probleme.
Ich erstelle mit folgenden Code einen neuen Tab mit Webbrowser.

Delphi-Quellcode:

procedure TForm1.NeuerTab1Click(Sender: TObject);
var WB:TWebbrowser; Tab:TTabsheet;
begin
Tab := TTabsheet.Create(self);
Tab.PageControl := PageControl1;
Tab.Caption := 'Tab ' + IntToStr(PageControl1.PageCount);
Tab.Name := 'TabSheet' + IntToStr(PageControl1.PageCount);
PageControl1.ActivePage := Tab;
WB := TWebbrowser.Create(self);
TControl(WB).Parent := Tab;
TControl(WB).Name := 'Webbrowser' + IntToStr(PageControl1.PageCount);
WB.Visible := true;
WB.Anchors := [akLeft,akTop,akRight,akBottom];
WB.Left := 3;
WB.Top := 3;
WB.Height := Tab.Height - 6;
WB.Width := Tab.Width - 6;
end;

Mein Problem ist nun: Wie sage ich nachher beim Seite aufrufen welchen Webbrowser oder wie ermittle ich den aktuellen Browser im Tab.

[Muellermilchtrinker]

*push*

[toms]

Hallo, schau die mal mein Mini Webbrowser Demo an.

[Muellermilchtrinker]

Hallo toms,

ihc hab deine Webbrowser Demo angeschaut, aber das ist leider nicht das was ich brauche.
Vllt kann mir ja jemand helfen, eine Funktion zu schreiben, um den aktiven Browser zu ermitteln.
Für mich wäre auch eine Hilfe, wenn mir jm. sagen könnte, ob/wie man die Struktur/Komponentenliste (über OI) in der Laufzeit anzeigen lassen kann.

Danke schonmal im vorraus.

Müllermilchtrinker

[himitsu]

Zitat von Muellermilchtrinker:

Für mich wäre auch eine Hilfe, wenn mir jm. sagen könnte, ob/wie man die Struktur/Komponentenliste (über OI) in der Laufzeit anzeigen lassen kann.

Du gehst einfach .Components der Form und deren Unterkomponenten durch ... dann bekommste quasi einen Baum, so wie in der Liste.

[Muellermilchtrinker]

Zitat von himitsu:

Zitat von Muellermilchtrinker:

Für mich wäre auch eine Hilfe, wenn mir jm. sagen könnte, ob/wie man die Struktur/Komponentenliste (über OI) in der Laufzeit anzeigen lassen kann.

Du gehst einfach .Components der Form und deren Unterkomponenten durch ... dann bekommste quasi einen Baum, so wie in der Liste.

Hab ich schon gemacht. Nur hab ich das Problem, dass die TabSheets am Ende der Liste sind und nicht unter der PageControl.

[Namenloser]

Zitat von Muellermilchtrinker:

Hab ich schon gemacht. Nur hab ich das Problem, dass die TabSheets am Ende der Liste sind und nicht unter der PageControl.

Das liegt daran, dass der Owner der Tabsheets das Form ist. Das PageControl ist nur Parent.

[Muellermilchtrinker]

Zitat von NamenLozer:

Das liegt daran, dass der Owner der Tabsheets das Form ist. Das PageControl ist nur Parent.

Wie muss ich den Code, dann umändern??
Tab := TTabsheet.Create(PageControl1); stimmt das so??

[Muellermilchtrinker]

Habs jetzt hinbekommen. Danke trotzdem