TPageControl - wyłączenie kart

[mentalmesh]

Mam pytanie... jak wyłączyć karty w TPageControl? Chodzi mi o to, żeby komponent PageControl1 miał kilka kart TabSheet ale nie miał tych zakładek (domyślnie ustawianych na górze), które służą do przechodzenia pomiędzy nimi. Właściwość Style i TabPosition nie przewidują opcji, w której nie ma zakładek. Chciałbym się pozbyć zakładek i przechodzić pomiędzy kartami za pomocą Buttonów.
Z góry dzieki za pomoc.

[Cyfrowy Baron]

Nie ma takiej opcji. Możesz co prawda ustawić właściwość TabHeight na 1, ale nie będzie to dobrze wyglądać.

Istnieje pewne karkołomne rozwiązanie polegające na schowaniu zakładek pod obiektem Panel, a konkretnie poza jego górną krawędzią.

Umieszczasz na formularzu obiekt Panel1 i ustawiasz mu taki rozmiar jaki ma mieć PageControl1.
Następnie ustawiasz dla Panel1

BevelInner bvNone
BevelKind bvNone
BevelOuter bvNone

BorderStyle bsSingle
Ctl3D false

Potem umieszczasz na obiekcie Panel1 obiekt PageControl1, tworzysz zakładki ile potrzebujesz, a następnie ustawiasz właściwości PageControl1:

Height właściwość Height obiektu Panel1 + 6, czyli np. Panel1 ma Height 320, więc PageControl1->Height = 320 + 6
Width właściwość Width obiektu Panel1 + 2
TabHeight 1
Left -1
Top -5
Style tsTabs


Jeżeli wszystko zrobisz dobrze otrzymasz coś takiego:

pagecontrol.gif

[Witold]

Może zamiennik: TNotebook z zakładki Win3.1, jest trochę podobny do TPageControl i nie ma zakładek.

[mentalmesh]

faktycznie, TNotebook rozwiÄ…zuje problem ale z tego co wyczytalem jest on zostawiony w builderze tylko dla zachowania kompatybilnosci wstecz i nie jestem pewien czy powinno sie go uzywac - w nastepnym wydaniu moze go juz nie byc, tak jak wywalili komponenty FastNet. Co o tym myslicie?

[Witold]

w nastepnym wydaniu moze go juz nie byc, tak jak wywalili komponenty FastNet.

Najlepiej zapytaj na forum Embarcadero. W najnowszym C++ Builder 2010, TNotebook nadal jest.

[mentalmesh]

Ok, dzieki wielkie za pomoc