TPageControl: nach schliesen geht nicht mehr viel :/

[Red_Dragon]

hi,

also mein problem ist das ich beim schliesen der Tabsheets zwar wieder neue öffnen kann aber eben funktionen wie copy & past oder OpenDialog nicht mehr funktionieren

Der Teil zum schliesen:

Delphi-Quellcode:

procedure TForm1.ToolButton15Click(Sender: TObject);
begin
PageControl1.Pages[PageControl1.ActivePageIndex].free;
end;

Der Teil zum Öffnen:

Delphi-Quellcode:

procedure TForm1.NewTabsheet;
begin
  INC (pagecount);
  SetLength (pages,pagecount);
  SetLength (edits,pagecount);
  pages[pagecount-1] := TTabSheet.Create(PageControl1);
  pages[pagecount-1].PageControl := PageControl1;
  pages[pagecount-1].Caption := 'Neu Datei';
  edits[pagecount-1] := TSynEdit.Create(pages[pagecount-1]);
  edits[pagecount-1].Align := alClient;
  edits[pagecount-1].Gutter.ShowLineNumbers := true;
  edits[pagecount-1].Parent :=  pages[pagecount-1];
  PageControl1.ActivePageIndex := PageControl1.pagecount-1;
end;

eine funktion die nach schliesen nicht geht:

Delphi-Quellcode:

procedure TForm1.Kopieren1Click(Sender: TObject);
begin
edits[PageControl1.ActivePageIndex].CopyToClipboard;
end;