kleiner Wizard, Vorgehen?

[choose]

Offensichtlich bin ich nicht in der Lage, die Idee mit Worten darzustellen.
Probiere einfach einmal das:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with PageControl1 do
    for i:= 0 to Pred(PageCount) do
      Pages[i].TabVisible:= False;
end;

Und Du wirst sehen, dass Du keine Reiter sehen wirst