if pagecontrol.activepage=TabSheet1 then
是在当前显示页
------解决方案--------------------------------------------------------PageControl1.ActivePage
------解决方案--------------------------------------------------------case activepageindex
------解决方案--------------------------------------------------------PageControl1.TabIndex 也可以判断当前选项是第几项
------解决方案--------------------------------------------------------
case pageControl1.activePageIndex of
0:ShowMessage('第一页');1:ShowMessage('第二页');end;