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