PageControl y TabSheets

[[eduarcol]]

y no es mas facil asi:

Código Delphi [-]
var
   nIdx: Integer;
begin
   //TABSHEET1.TABVisible := fALSE;
   for nIdx:= 0 to pagecontrol1.PageCount - 1 do
      pagecontrol1.Pages[nIdx].TabVisible := nIdx = DBCombobox1.ItemIndex;
end;

no hay que realizar tantas comparaciones