tnotebook active page code example Example: tnotebook active page tabNB.PageIndex:= tabNB.PageIndex +1;