Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TPageControl [D7]

nap<> © (2006-02-20 12:29:00)
Можно ли убрать закладки?

Плохиш (2006-02-20 14:00:00) [1]
TPageControl.ActivePageIndex

nap<> (2006-02-20 14:00:00) [2]
дошло простите не проснулся

nap<> (2006-02-20 13:52:00) [3]
сорри я не догнал сразу
а переключатся как теперь межу закладками

Плохиш (2006-02-20 13:38:00) [4]
Где-то я совсем недавно такую ветку видел, там были точно такие же посты, только даты другие. И даже, вроде, ник вопрашающего совпадал.

Lexer (2006-02-20 12:55:00) [5]
Сорри, неправильно понял вопрос, если убрать верхнюю часть, то действительно лучше использовать [4].

Lexer (2006-02-20 12:50:00) [6]
Убираем
TabSheet2.PageControl := nil;
Показываем
TabSheet2.PageControl := PageControl1; TabSheet2.PageIndex := TabSheet2.Tag;

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

Ega23 (2006-02-20 12:47:00) [7]

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

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

nap<> (2006-02-20 12:39:00) [8]
Вопрос неправильно задал.
Можно убрать видимую часть которая сверху.
Тоесть не сами tabSheet а просто на самом TPageControl

Ega23 (2006-02-20 12:36:00) [9]
Вот, в общем случае как-то так:
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;

Ega23 (2006-02-20 12:33:00) [10]

> TabVisible = False

TTabSheet.TabVisible:=False;

nap<> (2006-02-20 12:32:00) [11]
A нету...

stone (2006-02-20 12:30:00) [12]
TabVisible = False

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »