Label o.ä. in zur Laufzeit erzeugtes TabbedNotebook packen

**Sadrax**

Hallo ich erzeuge während mein Programm läuft ein TabbedNotebook, und zwar so:

Delphi-Quellcode:

			...

var i : integer;

  tabi : TTabbedNotebook;

  seiten : Tstringlist;

...

  seiten := TStringList.Create;

  tabi := TTabbedNotebook.Create(self);

  for i := 1 to 3 do

    seiten.Add('Seite' + inttostr(i));

  with tabi do

  begin

   Parent := panel1;

   SetBounds(1, 1, 150, 150);

   visible := true;

   pages := seiten;

  end;

Nun möchte ich dort in eine bestimmte Seite ein Label o.ä. machen, aber was soll ich als parent des Labels angeben, so funktioniert nicht:
label1.Parent := tabi;

Label o.ä. in zur Laufzeit erzeugtes TabbedNotebook packen

Label o.ä. in zur Laufzeit erzeugtes TabbedNotebook packen

Forumregeln