TPageControl ähnlich FireFox4 (mit dem +-Zeichen)

[Deep-Sea]

Hab das vor einiger Zeit auch mal versucht - kam jedoch bis heute nie zum Einsatz.
Das Testprojekt habe ich mal angehängt. Der Code besteht jedoch nur aus folgendem:

Delphi-Quellcode:

procedure TForm2.PageControl1Change(Sender: TObject);
begin
  If PageControl1.ActivePage = TabSheet2 then
  begin
    With TTabSheet.Create(Self) do
    begin
      Caption := 'Neue Seite';
      ImageIndex := -1;
      PageControl := PageControl1;
      PageIndex := PageControl1.PageCount - 2;
      PageControl1.ActivePageIndex := PageIndex;
    end;
  end;
end;

Vlt. hilft es dir ja