Aktives Tabsheet auf Buttonklick entfernen

[Cluxie]

Folgendes:
Ich programmiere einen Browser und um ähnlich wie bei Opera mehrere Fenster anzeigen zu können benutze ich eine Pagecontrol. Mit einem Button erstelle ich ein neues Tabsheet und darin einen webbrowser, mit einem zweiten soll das aktive Tabsheet wieder gelöscht werden (Komplett - nicht nur der Inhalt)

Der Code sieht momentan so aus:

Delphi-Quellcode:

...

var
  Main_Form: TMain_Form;
  startpage: string;
  TabSheet : TTabSheet;
  webbrowser : twebbrowser;

...

procedure TMain_Form.NewPage_ButtonClick(Sender: TObject);
begin
TabSheet:=TTabSheet.Create(Self);
  with TabSheet do
  begin
  Align:= alCLient;
  Parent:=TabSheet1;
  end;
TabSheet.Caption:=('leere Seite');
TabSheet.PageControl:=PageControl1;
//Webbrowser auf diesem Tabsheet erstellen
webbrowser:=TWebBrowser.Create(TabSheet);
webbrowser.Align:=alClient;
TOLEControl(webbrowser).Parent:=TabSheet;

end;

procedure TMain_Form.ClosePage_ButtonClick(Sender: TObject);
begin
removecontrol(tabsheet.parent);
end;
...

Wenn ich nun auf den "Entfernen" Button klicke wird nicht das momentan aktive Tabsheet entfernt sondern die komplette Pagecontrol Unit. Wo in meinem Code liegt der Knackpunkt ?


Danke im Vorraus

[s14]

Hallo,
Du entfernst ja auch die Komponente PageControl1 als Parent vom TabSheet

Es sollte besser etwas wie

PageControl1.ActivePage.Free; verwendet werden.

Warum wird eigentlich der Parent von TabSheet auf TabSheet1 gesetzt?
Ich habs mal so geändert

Delphi-Quellcode:

TabSheet:=TTabSheet.Create(Self); 
  with TabSheet do
  begin
    Align:= alCLient;
//    Parent:=TabSheet1;
    Parent := PageControl1;
    Caption:=('leere Seite');
    PageControl:=PageControl1;
  end;

//Webbrowser auf diesem Tabsheet erstellen
webbrowser:=TWebBrowser.Create(TabSheet);
webbrowser.Align:=alClient;
TOLEControl(webbrowser).Parent:=TabSheet;

Gruss
s14

[Cluxie]

Jap, das war der Fehler, danke