TabSheet zur Laufzeit erstellen klappt nicht

[Nalincah]

Bei mir zeigt der nichts an. Warum?

Delphi-Quellcode:

procedure DBOpen;
var
  Tab:TTabSheet;
 begin
  // Tabsheet für die Tabelle erstellen
  Tab := TTabSheet.Create(FrmMain.PageControlDB);
  Tab.Parent := FrmMain.PageControlDB;
  Tab.Show;
end;

[Jens Schumann]

Hallo,
versuch es mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet : TTabSheet;
begin
  TabSheet:=TTabSheet.Create(Self);
  TabSheet.Caption:='Tab '+IntToStr(PageControl1.PageCount+1);
  TabSheet.PageControl:=PageControl1;
end;

Quelle: Delphi-Hilfe

[Nalincah]

Fehler selber gefunden.

Hab vergessen die Eigenschaft "PageControl" zu setzen

Delphi-Quellcode:

Tab.PageControl := FrmMain.PageControlDB;