Скрыть вкладку

← →
Alex_Storm © (2008-08-14 23:03) [0]

Доброго дня, мастера.

Вопрос: Как скрыть вкладку на Page Control? при активации приложения?

Вот так не помогает
procedure TForm1.FormCreate(Sender: TObject); begin Form1.TabSheet2.Show; Form1.TabSheet4.Visible:= false; end;

← →
programmer90 (2008-08-14 23:06) [1]

> Alex_Storm © (14.08.08 23:03)

Точно такая же проблема!!! Мастера помогите!

← →
Игорь Шевченко © (2008-08-14 23:15) [2]

TabVisible := false ?

← →
programmer90 (2008-08-14 23:43) [3]

> TabVisible := false ?

он действует на содержание таба ...а как можно скрыть само название вкладки?

← →
{RASkov} © (2008-08-14 23:45) [4]

> [3] programmer90 (14.08.08 23:43)
> ...а как можно скрыть само название вкладки

Попробуй
Caption:="";
:)

← →
programmer90 (2008-08-14 23:52) [5]

а чт-нить посолиднее можно?:)
Если так,то можно было бы впринципе Width:=0 попробовать:)
Как убрать вкладочную строку?

← →
{RASkov} © (2008-08-14 23:54) [6]

> [5] programmer90 (14.08.08 23:52)

В [0] вообще не совсем понятно что спрашивается... Так же непонятно что нужно тебе :(

> Вопрос: Как скрыть вкладку на Page Control?

Ответ: См [2]

> при активации приложения?

[2] или примерная реализация: PageControl.ActivePage.TabVisible:=False;
на Application.OnActivate - только непонятно зачем.... Ну и фик с ним)

← →
programmer90 (2008-08-15 00:00) [7]

Значит, запускаем прогу в полноэкранный режим... в проге есть PageControl и у него есть Вкладки...
Задача: убрать строку где содержаться вкладки, т.е оставить "голым" пейжконтрол:)

← →
{RASkov} © (2008-08-15 00:01) [8]

> [3] programmer90 (14.08.08 23:43)
> он действует на содержание таба ...а как можно скрыть само
> название вкладки?

Кажется я понял в чем вопрос... т.е. непонимание....

поробуй вот так:
var N: Integer; begin N:=PageControl.ActivePageIndex; PageControl.ActivePage.TabVisible:=False; PageControl.ActivePageIndex:=N; ....

> [7] programmer90 (15.08.08 00:00)
> Задача: убрать строку где содержаться вкладки, т.е оставить
> "голым" пейжконтрол:)

Есть PAgeCount и циклы... так что не вопрос...)

← →
programmer90 (2008-08-15 00:09) [9]

> var N: Integer;begin N:=PageControl.ActivePageIndex; PageControl.
> ActivePage.TabVisible:=False; PageControl.ActivePageIndex:
> =N;

не совсем понял....

> N:=PageControl.ActivePageIndex;
> PageControl.ActivePageIndex:=N;

наверно из-за этого:)
В любом случае помогло.
Спасибо.

← →
{RASkov} © (2008-08-15 00:15) [10]

> [9] programmer90 (15.08.08 00:09)
> не совсем понял....

Что непонятного-то?
При скрытии вкладки, индекс активной страницы меняется... Поэтому сначала запоминаем индекс страницы, у которой будем скрывать вкладку, после скрытия вкладки активная страница становится другой, а мы возвращаем индекс на место. Так как вкладки теперь не видно, то переход на страницу без вкладки возможно только программно выполнить....

← →
programmer90 (2008-08-15 00:36) [11]

> Есть PAgeCount и циклы... так что не вопрос...)

var ar:array of integer; for j := 1 to PageControl1.PageCount do begin ar[j]:=PageControl1.ActivePageIndex; PageControl1.ActivePage.TabVisible:=False; PageControl1.ActivePageIndex:=ar[j]; end;
что-то неверно.. но что?

← →
Германн © (2008-08-15 01:32) [12]

> programmer90 (14.08.08 23:43) [3]
>
>
> > TabVisible := false ?
>
> он действует на содержание таба ...а как можно скрыть само
> название вкладки?
>

А ты Alex_Storm ©?
Если нет, то тебя придется удалить за нарушение правил форума.
Да и если да, то тоже нарушение. :(

Вобщем объясню задачу подробнее, человек входит в программу для него доступны только 2 вкладки, после ввода логина и паса ему доступна еще одна, а для ввода заявки надо периодически включать и выключать одну из вкладок с формами ввода. Все остальное реализовано, кроме исключения вклади.

> [13] Alex_Storm © (15.08.08 06:52)
> Все остальное реализовано, кроме исключения вклади

Неужели не нашел ответа в этой ветке!?
:)

> [11] programmer90 (15.08.08 00:36)
> что-то неверно.. но что?

Всё не то.... Может тебя огорчить еще больше? У тебя в голове вообще всё не верно.... и не тем ты занялся...

Ладно... у меня сегодня благоприятный день :)
Наверное нечто такое нужно:
var OldInd, N: integer; begin OldInd:=PageControl1.ActivePageIndex; //Запоминаем текущую страницу т.е. ее индекс for j := 0 to PageControl1.PageCount-1 do //Перебираем все страницы... PageControl1.Pages[N].TabVisible:=False; //...и прячем ихи вкладки PageControl1.ActivePageIndex:=OldInd; //Возвращаемся на запомненую страницу. end;

Ой йо......
Табшит1.ПэйджКонтрол := нил;

> [10] {RASkov} ©

когда-то пытался найти способ скрытия вкладок TPageControl"a, но сам так и не догнал. Неплохое решение, спасибо. ;)

Скрыть вкладку Найти похожие ветки