PageControl ohne TabSheetanzeige?

[Luckie]

Ein Tabsheet anklicken und TabVisible auf False stellen. Weiterspringen kannst du dann so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if PageControl1.ActivePageIndex < PageControl1.PageCount-1 then
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex + 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if PageControl1.ActivePageIndex > 0 then
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex - 1;
end;