Item/TPageControl zur Designzeit im Frame

[marabu]

Tritt der Fehler auch auf, wenn du deinen Code leicht abwandelst?

Delphi-Quellcode:

procedure Tmain_form.test1Click(Sender: TObject);
var
  p : TTabSheet;
  i : integer;
begin
  // zuerst etwa vorhandene TabSheets entfernen!
  // ...
  for i := 0 to 3 do
  begin
    p := TTabSheet.Create(PageControl1);
    p.PageControl := PageControl1;
    // p.Name := 'nummer_' + IntToStr(i);
    // p.Caption := 'caption_' + IntToStr(i);
    // p.Show;
    p.Parent := PageControl1; // that's it!
    fr[i].parent := p;
    // fr[i].Show;
  end;
  PageControl1.ActivePageIndex := 0;
end;