Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

Кто хранит 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?

---

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

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

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

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

---

← →
Ega23 ©   (2005-03-17 14:24) [6]

2 Юрий Зотов ©   (17.03.05 14:13) [5]

Понял, спасибо...

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.039 c