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:

zusammenfalten · markieren

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

Aktives Tabsheet auf Buttonklick entfernen

Aktives Tabsheet auf Buttonklick entfernen

Forumregeln