PageControl zur Laufzeit erweitern

[nailor]

Delphi-Quellcode:

while iFile.SectionExists('File' + inttostr(i)) do
  begin
    SetLength(TabSheets, succ(i));
    TabSheets[i] := TTabSheet.Create(self);
    TabSheets[i].PageControl := PageControl1;
    PageControl1.Pages[i].Caption := iFile.ReadString('File' + inttostr(i), 'Caption', 'Datei ' + inttostr(i+1));
    SetLength(RTEs, succ(i));
    RTEs[i] := TRichEdit.Create(self);
    RTEs[i].Parent := TabSheets[i];
    RTEs[i].Align := alClient;
    RTEs[i].Font.Name := iFile.ReadString('Options', 'Font_Name', 'Courier New');
    RTEs[i].Font.Size := iFile.ReadInteger('Options', 'Font_Size', 10);
    RTEs[i].PlainText := true;
    RTEs[i].Lines.LoadFromFile(iFile.ReadString('File' + inttostr(i), 'File', iFile.FileName));
    inc(i)
  end;
if i = 0 then
  begin
    ShowMessage('Keine passende ini-Datei gefunden');
    Application.Terminate;
  end;

erzeugt nen neuen TabSheet mit nem Memo drauf. iFile ist natürlich ne ini datei und:

Delphi-Quellcode:

  TabSheets: array of TTabSheet;
  RTEs: array of TRichEdit;