Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Есть ли аналог TPagecontrol с возможностью отключения заголовков   Найти похожие ветки 

 
nsvi   (2005-01-15 04:29) [0]

Посоветуйте, пожалуйста, где найти PageControl без заголовка. Мне надо вкладки переключать только программно, а в TPageControl убрать заголовки вкладок нельзя. Либо что-то типа вкладок, чтоб можно было бросать на них контролы и контролы разных вкладок не мешали друг другу в DesignTime.


 
Kerk ©   (2005-01-15 07:17) [1]

фреймы попробуй


 
Dolt ©   (2005-01-15 11:57) [2]

PageControl.ActivePage.TabVisible:=False;


 
olookin ©   (2005-01-15 23:15) [3]

[2] Dolt ©   (15.01.05 11:57)

И в результате не будет видна сама страница...


 
nsvi   (2005-01-16 04:59) [4]

Фреймы не пойдут, мне надо работать с вкладками в DesignTime, а фреймы будут налезать друг на друга.
А по PageControl.ActivePage.TabVisible:=False; и так ясно.
Кто-нибудь встречал вкладки без заголовков?


 
nsvi   (2005-01-16 04:59) [5]

Фреймы не пойдут, мне надо работать с вкладками в DesignTime, а фреймы будут налезать друг на друга.
А по PageControl.ActivePage.TabVisible:=False; и так ясно.
Кто-нибудь встречал вкладки без заголовков?


 
Dolt ©   (2005-01-16 09:25) [6]

to olookin:
 А вы проверяли?

Еще раз предлагаю TabVisible:=False;
Судя по вопросу, переключать надо программно. А если TabSheet, у которого свойство TabVisible:=False указать как ActivePage - он замечательно отображается.


 
nsvi   (2005-01-16 11:26) [7]

Попробую


 
nsvi   (2005-01-16 11:44) [8]

Нет! Вы не поняли - мне нужен тот же TPageControl, но без заголовка (кнопок переключения страниц). В стандартном TPageControl возможности убрать верх я не нашел, а переключать вкладки программно я прекрасно знаю как.
Вот я и спрашиваю, каким образом убрать этот заголовок или есть ли сторонний аналогичный компонент с такой возможностью?


 
Ищущий ответ   (2005-01-16 12:41) [9]

В принципе можно задать для PageControl TabWidth := 1 и TabHeight := 1. Все таки немножко закладки видны.


 
Плохиш ©   (2005-01-16 12:45) [10]

Если [6] не помогает, то только в дворники.


 
Fktrc ©   (2005-01-16 13:53) [11]

nsvi   (16.01.05 11:44) [8]
Ты TPageControl с TTabControl не попутал, случаем?


 
olookin ©   (2005-01-16 14:30) [12]

[6] Dolt ©   (16.01.05 09:25)
>>to olookin: А вы проверяли?

Автор вопроса хотел, чтобы вкладки не были видны, но сама страница оставалась видимой. Если сделать PageControl.ActivePage.TabVisible:=False;, то страница перестает быть видимой. Вы сами-то пробовали?


 
nsvi   (2005-01-16 14:43) [13]

Я хочу чтоб не было видно верхней части PageControl, там, где вертикальные разделители, чтоб скрыть именно заголовочную часть, а страницы чтоб показывались как обычно. Сам заголовок мне не нужен и только занимает место. А переключать страницы я могу программно.


 
begin...end ©   (2005-01-16 15:07) [14]

> [12] olookin ©   (16.01.05 14:30)

> Если сделать PageControl.ActivePage.TabVisible:=False;,
> то страница перестает быть видимой.

А если задать нужное значение свойству ActivePageIndex или ActivePage, то страница станет видимой.

> [13] nsvi   (16.01.05 14:43)

Вам уже ответили: см. [2], [6]. Что ещё нужно-то?

В Form.OnCreate сделайте цикл от 0 до PageControl.PageCount - 1, в котором свойству TabVisible каждой TTabSheet присвойте значение False. В результате заголовки страниц не будут видны. Затем в программе в нужный момент можно будет показать, например, первую (нулевую) страницу так: PageControl.ActivePageIndex := 0 или PageControl.ActivePage := PageControl.Pages[0].


 
olookin ©   (2005-01-16 15:15) [15]

[14] begin...end ©   (16.01.05 15:07)
>>А если задать нужное значение свойству ActivePageIndex или ActivePage,
>>то страница станет видимой.

Я не понял.


 
begin...end ©   (2005-01-16 15:17) [16]

> [15] olookin ©   (16.01.05 15:15)

Что именно Вы не поняли?


 
olookin ©   (2005-01-16 15:23) [17]

[16] begin...end ©   (16.01.05 15:17)

Всего предложения не понял. Будет лучше, если Вы покажете пример. Потому как я действителньо не понял, что Вы имеете в виду. Я вот попробовал такой код:

pagecontrol1.Pages[0].tabvisible:=false;
pagecontrol1.activepageindex:=0;

и при этом страница как была невидимой после tabvisible:=false, так ею и осталась...


 
jack128 ©   (2005-01-16 15:26) [18]

olookin ©   (16.01.05 15:23) [17]
и при этом страница как была невидимой после tabvisible:=false, так ею и осталась

А вот у меня почему то видна


 
begin...end ©   (2005-01-16 15:27) [19]

> [17] olookin ©   (16.01.05 15:23)

> pagecontrol1.Pages[0].tabvisible:=false;
> pagecontrol1.activepageindex:=0;

Вот именно после выполнения этого кода у меня заголовок страницы исчезает, но сама страница (со всеми расположенными на ней компонентами) видна.


 
begin...end ©   (2005-01-16 15:29) [20]

> [17] olookin ©   (16.01.05 15:23)

Вы, может быть, установили в False ещё и свойство Visible страницы?


 
olookin ©   (2005-01-16 15:29) [21]

[18] jack128 ©   (16.01.05 15:26)

? Специально еще раз проверил - не видна. Может быть, это зависит от версии Дельфи (5) или версии Windows (2000). Однако у меня страница остается невидимой..


 
olookin ©   (2005-01-16 15:31) [22]

[19] begin...end ©   (16.01.05 15:27)
>>(со всеми расположенными на ней компонентами) видна.

Как говорится, поспешил. Компонентов то я на страницу не клал, поэтому и посчитал, что она исчезает... Прошу прощения...



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

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

Наверх




Память: 0.49 MB
Время: 0.039 c
3-1102971229
serko
2004-12-13 23:53
2005.01.30
QReport


3-1103831482
Vitaliy
2004-12-23 22:51
2005.01.30
Автоширина столбцов DBGrid


9-1098617715
.cpp
2004-10-24 15:35
2005.01.30
Вычислить положение откуда идёт выстрел


1-1106117467
WinLamka
2005-01-19 09:51
2005.01.30
dll и обьекты


11-1089101164
Nox
2004-07-06 12:06
2005.01.30
KOLEdb: работа с несколькими таблицами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский