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;