Kompo zur Laufzeit auf einem TaNotebook erstellen

[Christian Seehase]

Moin Yankee,

Du erzeugst ein TabSheet und weist dessen Eigenschaft PageControl das gewünschte zu:

Delphi-Quellcode:

  with TTabSheet.Create(PageControl1) do begin
    PageControl := PageControl1;
    Parent      := PageControl1;
    Caption     := 'Tabsheet'+IntToStr(PageControl1.PageCount);
    Name        := 'Tabsheet'+IntToStr(PageControl1.PageCount);
  end;