komponente auf neuem Tab erzeugen

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyTabSheet: TTabSheet;
  MyListBox: TListbox;
begin
  MyTabSheet := TTabSheet.Create(Form1);
  MyTabSheet.Parent := PageControl1;
  MytabSheet.PageControl := PageControl1;
  MytabSheet.Caption := 'Test';
  MyListBox := TListBox.Create(Form1);
  MyListbox.Parent := MyTabSheet;
end;