Pagecontrol ascunde titlul marcajului

PageControl: ascundeți titlul marcajului

Nu-mi spuneți, cum pot ascunde titlul marcajului în PageControl?
TabVisible nu este potrivit ca un semn de carte nu trebuie să se șterge, și trebuie să buton, determinând-o să fie găsit.

Sau poate altceva mi-ar spune despre sarcina mea?
Există o idee de a scrie un dane expert, care standard, trecerea la fila următoare și anterioare efectuate butoanele Next si Prev respectiv. PageControl ar fi foarte util, dacă nu pentru aceste butoane stupide :(

TabVisible - este potrivit, dar există o problemă cu ascunderea tutunului (și în D4). Acum lucrez în D7, D6 - nu mai amintesc, dar în runtime-ul meu marcajul ar trebui să dispară.


var
PagesHeight: integer = 0;

procedura TfrmMain.chkInterfaceClick (expeditor: TObject);
var
f1: boolean;
începe;
dacă PagesHeight = 0 apoi PagesHeight: = pcMain.Pages [0]. Top;
f1: = chkInterfaceShowPages.Checked;
dacă începe atunci f1;
pcMain.Top:=0;
pcMain.Height: = panRight.Height + 3;
capăt
altceva începe;
pcMain.Top:=-PagesHeight;
pcMain.Height: = PagesHeight + panRight.Height + 3;
se încheie;
se încheie;

P.S. pcMain este pe panRight, Align = Nici unul

2 Lucru rea:
F1:
===
Utilizați TabVisible pentru a elimina temporar o foaie de tab-uri de la un control de pagină. Când TabVisible este False, fila nu apare în controlul paginii și proprietățile sale tabindex este -1. Setarea TabVisible to True permite utilizatorului să vadă fila din fila tab-ului din nou.
===
Și voi repeta încă o dată că nu trebuie să ascund foaia însăși, trebuie să-i ascund Tabul. Orice alte sugestii inteligente?
Vă reamintesc că vorbim despre D5

2 Sha:
Nu înțeleg ce este exemplul tău. Ce fel de pcMain?

2 serge:
O foaie ascunsă este într-adevăr o glitch? În ajutor, este scris în alb și negru.

Și pe TabVisible nu mai ai decât gunoiul de sus dispărut. Foaia însăși rămâne.

expune TabVisible: = false, TabSheet corespunzător dispare. Dar dacă pui în proprietate PageControla ActivePage în numele TabSheet ascunse „, iar apoi acesta va fi la fel de frumos, atât în ​​timpul rulării și în dizayntayme. Și, în măsura în care îmi amintesc, printr-un tambur Delphi, 4 (2) .. 7.

Pe scurt, învățați materialul.

Acesta este un tăiat dintr-un proiect de lucru.
Introduceți chkInterface - TCheckBox.
Tipul panRight este TPanel.
Introduceți pcMain - TPageControl, înlocuiți-o cu ControlControl.

Exemplul exemplului este că făcând clic pe caseta de selectare, filele apar și dispar. Utilizatorul alege interfața care este convenabilă pentru el. În stânga este la stânga un trivay.

Memorie: 0,73 MB
Durată: 0.041 sec