Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Коллеги, как убрать крыжик ()закладку, кнопку) в TabSheet ? [D6, WinXP]


Страницы:   1 2

Yozch1 ©   (2006-02-13 15:14:00) 

Сабж.


Игорь Шевченко   (2006-02-14 16:42:00) [1]

Amoeba ©   (14.02.06 15:00) [21]

Глючный он. И тормозной.


Amoeba   (2006-02-14 15:00:00) [2]

TNotebook, между прочим без "ушей". И чем он не угодил автору вопроса?


McSimm   (2006-02-14 10:49:00) [3]

TTabSheet.TabVisible о котором уже несколько раз сказали является решением вопроса. Именно для этого это свойство и существует, о чем обсуждение ?


Германн   (2006-02-14 03:32:00) [4]

А может стоит изучить TPageManager из RxLib?


Дмитрий Белькевич   (2006-02-13 21:24:00) [5]

может style поменять? или стороннюю компоненту какую?


Darvin   (2006-02-13 18:34:00) [6]

Я так делаю:
 // Спрятать табуляторы
 for I:=0 to pcPages.PageCount-1 do  
   pcPages.Pages[I].TabVisible := false;
 // Показать текущий
 pcPages.ActivePage := winMain;


McSimm   (2006-02-13 18:09:00) [7]

Конечно можно :)

Делаем N панелей, размещаем на каждой нужные элементы (тут правда помучатся придется - мешают), создаем свойства ActivePanelIndex, Count,  скрываем неактивные и показываем активную. И никаких проблем, а если их еще и на страницы TPageConrol положить - вообще все просто становится. Так что можно и панелями обойтись. Кстати, и сами панели можно вообще убрать.
:)

(шутка, не обижайтесь :)


Desdechado   (2006-02-13 17:49:00) [8]

> кнопки "Back" и "Next"
а смысл тогда в TPageControl'е?
можно обычными панелями обойтись


Плохиш   (2006-02-13 17:38:00) [9]

Удалено модератором


antonn   (2006-02-13 17:29:00) [10]

Удалено модератором


Style   (2006-02-13 16:16:00) [11]

Блин ну так тебе же написали PageControl1.ActivePageIndex устанавливаеш и все..

 TabSheet1.TabVisible := false;
 TabSheet2.TabVisible := false;

 PageControl1.ActivePageIndex := 1; //Ушей нет, а тело есть...

Со своей постановкой вопроса всех сам запутал :)))


begin...end   (2006-02-13 16:14:00) [12]

> Yozch1   (13.02.06 16:07) [10]
> скрываем не таб, а только "уши", по которым мышкой кликают.

Что понимается под "табом"? Что понимается под "ушами"?


Yozch1   (2006-02-13 16:07:00) [13]

аноним,  Desdechado
Ну прям как дети. Надо именно так. Для тех кто в танке - переключаться можно программно.

begin...end  - скрываем не таб, а только "уши", по которым мышкой кликают.

Реальное решение по-моему в установке првильных CreateParams , но я не могу найти доку по этой теме ;-(


McSimm   (2006-02-13 15:52:00) [14]


> а как ты без "ушей" будешь давать юзеру переключаться между
> закладками?

разные способы есть :)

Например, довольно распрастранненый пример - кнопки "Back" и "Next"


аноним   (2006-02-13 15:51:00) [15]

TNotebook тебе в помощь...


Desdechado   (2006-02-13 15:43:00) [16]

а как ты без "ушей" будешь давать юзеру переключаться между закладками?


begin...end   (2006-02-13 15:41:00) [17]

> Yozch1   (13.02.06 15:38) [5]

1. Скрывать закладки, устанавливая TabVisible в False.
2. Показывать нужную страницу, назначая ActivePageIndex.
3. Радоваться.


Yozch1   (2006-02-13 15:38:00) [18]

TTabSheet.TabVisible  - сам таб пропадает ;-)


begin...end   (2006-02-13 15:37:00) [19]

TTabSheet.TabVisible ?


Style   (2006-02-13 15:33:00) [20]

Если я угадал то:

Скрыть саму закладку в PageControl можно так..

MyTabSheet.PageControl := nil;
чтобы показать
MyTabSheet.PageControl := MyPageControl;

если это TTabControl то просто нужно работать со свойство Tabs
которое является наследником TStrings. Добваляя или удаляя строки в список мы меняем закладки на TabControl...


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо