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:

Delphi-Quellcode:

label1.Parent := tabi;

[Bernhard Geyer]

Schmeiss TTabbedNotebook weg und nimm stattdessen TPageControl.
TTabbedNotebook ist eh nur für 16-Bit-Portierung gedacht und sollte nicht mehr für neue Funktionen verwendet werden. Nicht umsonst liegt es auf der Win3.1-Reiterseite.

[Sadrax]

Manchmal wird aber vorgegeben mit was man arbeiten soll ;-)

[Bernhard Geyer]

Zitat:

Zitat von Sadrax

Manchmal wird aber vorgegeben mit was man arbeiten soll ;-)

Man kann auch solch Vorgaben an aktuelle Gegebenheiten anpassen.

[Sadrax]

Zitat:

Zitat von Bernhard Geyer

Man kann auch solch Vorgaben an aktuelle Gegebenheiten anpassen.

Naja, das will ich in der Schule lieber nicht ausprobieren ^_^

[Bernhard Geyer]

Zitat:

Zitat von Sadrax

Zitat:

Zitat von Bernhard Geyer

Man kann auch solch Vorgaben an aktuelle Gegebenheiten anpassen.

Naja, das will ich in der Schule lieber nicht ausprobieren ^_^

Und wieso nicht?
Ich denke die Vorgabe ist uralt und nicht mal der Ersteller (wenn er denn noch an der Schule ist) wird mehr wissen er es so festgelegt hat. Bzw. er wird es einsehen dies entsprechend anzupassen.

[Sadrax]

Zitat:

Zitat von Bernhard Geyer

Und wieso nicht?

Weil die TPageControl nach Aussagen des Lehrers auch noch drankommt :-D