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