[damekkoneko]

Здравствуйте. Прошу помощи у вас. Мне этот TPageControl (D7) гадит в душу.
Есть PageControl с некоторым количеством вкладок, нужно показывать только часть из них в разное время.
Скрыть эти вкладки получается без проблем, а вот обратиться к скрытым никак.

Следующий код работает, но выдает ошибку

Код:

Project ***.exe raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible window'. Process stopped. Use Step or Run to continue.

Код:

procedure dosomething;
var
  i : integer;
begin
 for i:=1 to PageControl.PageCount-1 do begin // первая вкладка нужна всегда
    PageControl.ActivePageIndex:=i;
    if (i>=6) and (i<=13) then // хочу показать только с 6 по 13 вкладки
      PageControl.ActivePage.TabVisible:=true
    else
      PageControl.ActivePage.TabVisible:=false; // остальные скрыть
  end;
  PageControl.ActivePageIndex:=6;
end;

Да это извращение, можно и просто по PageControl.Pages[i].TabVisible, но тогда он вообще ничего не делает, а просто мучает мне мозг.

В чем дело? О чем я не знаю?
Спасибо.