怎么判断pagecontrol下的TabSheet是否打开还是关闭求答案

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