Hierzu ein kleines Beispiel:
Delphi-Quellcode:
//-- ERST ZUR LAUFZEIT die Tabs (bis auf den ersten) auf invisible setzen!
//-- NICHT schon im OI, da sonst während des Entwurfes die Tabs ausgeblendet werden
for i := Pred(PageControl1.PageCount)
downto 1
do
PageControl1.Pages[i].TabVisible := false;
//-- Tabs sichtbar machen, wenn Benutzer auf Button1 klickt:
procedure Txxx.Button1Click(Sender: TObject);
begin
//--nächste Seite suchen/finden und gleich aktivieren:
PageControl1.ActivePage := PageControl1.FindNextPage(PageControl1.ActivePage,
true,
false);
//--Tab sichtbar machen
PageControl1.ActivePage.TabVisible := true;
end;