Internet Browser mit Delphi: unbegrenzt viele Registerkarten zur Laufzeit

[s.h.a.r.k]

Zitat von entwickler:

Leute, meine Tastatur ist kaputt; Wie soll ich so schnell stellung nehmen?! Jetzt ma langsam:

Wer bremst verliert

Nein, Spass bei Seite und mal mit etwas mehr ernst Du musst dir glaub erst mal die Grundlagen von OOP anschauen, denn genau das Prinzip ist hier sehr wichtig. Hast du das verstanden, dann verstehst du auch himitsus Aussage. Du musst dir dies bzgl. eben die Schnittstellen (Eigenschaften und Methoden) von der PageControl-Komponente anschauen.

Nochmals mit ein wenig Code -- das hier kann ein Tab sein:

Delphi-Quellcode:

TMyBrowserTab = class(TTabSheet)
private
  FBrowser : TWebBrowser;
public
  procedure LoadPage(const Url: string);
end;

Und so kannst du beliebig viele Tabs öffnen -- was natürlich Käse ist! TBrowserForm ist eine Form, die ein PageControl beinhaltet.

Delphi-Quellcode:

procedure TBrowserForm.CreateNewTab(const Url: string);
var
  NewTab : TMyBrowserTab;
begin
  NewTab := TMyBrowserTab.Create();
  NewTab.LoadPage(Url);
  TabPageControl.InsertPage(NewTab); // Keine Ahnung ob der Aufruf so stimmt!
end;

procedure TBrowserForm.DoNoUseMe();
const
  TAB_COUNT = 100000;
var
  i : Integer;
begin
  for i := 0 to TAB_COUNT do
    CreateNewTab('http://www.google.de');
end;