Кто хранит TTabSheet

← →
Ega23 © (2005-03-17 13:41) [0]

Есть форма, на ней панель и TPageControl, на нём в дизайн-тайме созданы 4 TabSheet"а.
Хочу, чтобы в дизайн-тайме они были с закладками, а в ран-тйме - без (TabVisible:=False).

Пишу:

procedure TFMain.SetDefaults; var i:Integer; begin for i:=0 to ControlCount-1 do if (Controls[i] is TTabSheet) then TTabSheet(Controls[i]).TabVisible:=False; end;

Не работает. ControlCount=2

Пишу
procedure TFMain.SetDefaults; var i:Integer; begin for i:=0 to pcMain.PageCount-1 do TTabSheet(pcMain.Pages[i]).TabVisible:=False; end;

Работает со свистом.

Почему? Почему 4 TabSheet"а не хранятся в массиве FMain.Controls?

← →
begin...end © (2005-03-17 14:01) [1]

> Ega23 © (17.03.05 13:41)

> Почему 4 TabSheet"а не хранятся в массиве
> FMain.Controls?

А почему они должны там храниться?

ShowMessage(TabSheet.Parent.Name)

← →
Юрий Зотов © (2005-03-17 14:07) [2]

> Почему? Почему 4 TabSheet"а не хранятся в массиве
> FMain.Controls?

Потому что parent TabSheet"ов - не форма, а PageControl.

← →
Ega23 © (2005-03-17 14:08) [3]

А почему они должны там храниться?

Да, но ComponentCount всё правильно показывает, 6.

← →
begin...end © (2005-03-17 14:10) [4]

> Ega23 © (17.03.05 14:08) [3]

А какая связь между ComponentCount и Controls?

> Ega23 © (17.03.05 14:08) [3]

Список Components относится к Owner.
Cписок Controls относится к Parent.

Owner у TabSheet"ов - форма. А parent TabSheet"ов - PageControl.

Кто хранит TTabSheet Найти похожие ветки