Wenn ich dieses am Anfang der Procedure mache:
Delphi-Quellcode:
//Unsichtbare Tabs übergehen
Unsichtbar := 0;
for I := 0 to Der_TabIndex do
begin
If PageControl.Pages[I].TabVisible = FALSE then
begin
Unsichtbar := Unsichtbar + 1;
end;
end;
Der_TabIndex := Der_TabIndex + Unsichtbar;
... funktioniert das auch wenn ich ein Tab Visible = FALSE setze. Bei zwei oder mehr Tabs aber nicht. Da ist es wieder durcheinander ...
Vielleicht kann jemand das Konstrukt dort oben dementsprechend anpassen ...