Delphi (apod) - TNotebook

TNotebook neni nestatnejsi volba. Je to hodne stara kompnenta s mizernym pristupem.
Radeji pouzij TPageControl

Já vím ale ten TNotebook tam musí být - vyšší moc
I když, možná by změna na TPageControl prošla, ale tam zase nevím jak se zbavit těch záložek.

I na TNotebook slo vytvaret komponenty. Jen je to slozitejsi. Stranky sou tusim TStrings. Takze pri vytvareni komponent musis predavat Ownera jako Object[i] od jednotlive stranky. Ale uz si to opravdu presne nepamatuju. Jen vim, ze to byla strasna otrava.

Tak, zkoumáním zdrojaku od TNotebook jsem zjistil, že k těm vlastním stránkám se asi nedostanu. Jedině udělat potomka od notebooku a zpřístupnit FPageList aspoň ke čtení.

Mám tedy jiný dotaz: jak zabránit komponentě TPageControl zobrazování záložek, tedy aby vizualně vypadal jako TNotebook?

Každá stránka TPageControl je instancí TTabSheet. Ten má vlastnost TabVisible. Mělo by stačit v object inspectoru nastavit na false a získáš TNotebook bez záložek:

  for i := 0 to PageControl1.Pages.Count-1 do
    PageControl1.Pages[i].TabVisible := false;
  PageControl1.ActivePage := PageControl1.Pages[1];

Dík. Čím víc do toho člověk čumí, tím méně vidí.

Dík vám oběma.
2JF: Je to tak, v Objects[i] je instance TPage.