TFrame vervielfältigen

[Die Muhkuh]

lass mal das Type oben weg und schreib:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Seite: TTabsheet;
  FrameSet1 : TFrame;
begin
  Seite := TTabSheet.Create(Self);
  with Seite do
  begin
    PageControl := PageControl1;
    Caption := 'Nr. ' + IntToStr(PageControl1.PageCount);
  end;
  FrameSet1 := TFrameSet1.Create(self);
  FrameSet1.Parent := Seite;
end;