Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

TPageControl   Найти похожие ветки 

← →
nap<>   (2006-02-20 12:29) [0]

Можно ли убрать закладки?

---

← →
stone ©   (2006-02-20 12:30) [1]

TabVisible = False

---

← →
nap<>   (2006-02-20 12:32) [2]

A нету...

---

← →
Ega23 ©   (2006-02-20 12:33) [3]

> TabVisible = False


TTabSheet.TabVisible:=False;

---

← →
Ega23 ©   (2006-02-20 12:36) [4]

Вот, в общем случае как-то так:

procedure SetTabVisible(aPageControl:TPageControl; const aVisible:Boolean=False);
var
i:Integer;
begin
 With aPageControl do
  begin
    for i:=0 to PageCount-1 do
      TTabSheet(Pages[i]).TabVisible:=aVisible;
  end;
end;


---

← →
nap<>   (2006-02-20 12:39) [5]

Вопрос неправильно задал.
Можно убрать видимую часть которая сверху.
Тоесть не сами tabSheet а просто на самом TPageControl

---

← →
Ega23 ©   (2006-02-20 12:47) [6]

> Вопрос неправильно задал.
> Можно убрать видимую часть которая сверху.
> Тоесть не сами tabSheet а просто на самом TPageControl


[4] чем не устраивает?

---

← →
Lexer ©   (2006-02-20 12:50) [7]

Убираем
TabSheet2.PageControl := nil;
Показываем
TabSheet2.PageControl := PageControl1;
TabSheet2.PageIndex := TabSheet2.Tag;

В Tag прописываем позицию на PageControl.
Вместо Tag можно использовать доп. массив.

---

← →
Lexer ©   (2006-02-20 12:55) [8]

Сорри, неправильно понял вопрос, если убрать верхнюю часть, то действительно лучше использовать [4].

---

← →
Плохиш ©   (2006-02-20 13:38) [9]

Где-то я совсем недавно такую ветку видел, там были точно такие же посты, только даты другие. И даже, вроде, ник вопрашающего совпадал.

---

← →
nap<>   (2006-02-20 13:52) [10]

сорри я не догнал сразу
а переключатся как теперь межу закладками

---

← →
Плохиш ©   (2006-02-20 14:00) [11]

TPageControl.ActivePageIndex

---

← →
nap<>   (2006-02-20 14:00) [12]

дошло простите не проснулся

---

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

Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.014 c