PageControl -> TabSheet -> MultiLine -> Reien ?

[Harry M.]

Ich glaube das hier ist das was Du sucht:

Delphi-Quellcode:

PageControl1.PageCount;
{ showmessage(IntToStr(PageControl1.PageCount)) }