【搞定】PageControl的问题，各位高手帮忙解决～～**

huanghui

怎样控制PageControl当中某页面不能打开？
比如有TabSheet1、TabSheet2、TabSheet3 三个分页
现在TabSheet3 是特有权限的人才能打开，查看里面的内容。
使用TabSheet3.Enabled:=false;只能实现TabSheet3 页面只读状态，但是还是能够查看TabSheet3当中的内容，不能达到需求。
请指点～～

huanghui

高手请帮忙！

jiahaiminghr

楼主，你试试在该控件的OnChang或OnChanging事件中编写代码，
如果当前人员没有权利，而当前tabSheet已经切换到了TabSheet3，就用代码改变当前的ActivePage

huanghui

使用了OnChang事件，代码如下：
procedure TXM_JBXX.PageControlChange(Sender: TObject);
begin
     self.PageControl.ActivePageIndex:=1;
end;
这样的话，当用户试图打开TabSheet3 时，会自动跳回TabSheet1
但是TabSheet2，就不能使用了。。。
没能达到预期目的，用户只是没有TabSheet3的查看权限，但是TabSheet1与TabSheet2还是能查看的！
请问如何解决？

atiger

楼主，现在TabSheet3 是特有权限的人才能打开，查看里面的内容。
那你可以把这页隐藏不就可以了，在Show窗体，或者某个事件上直接隐藏TabSheet3 ，参考代码
隐藏
TabSheet1.Visible := False;
TabSheet1.TabVisible:= False;
显示
  TabSheet1.Visible := true;
  TabSheet1.TabVisible:= true;

huanghui

搞定，谢谢！

atiger

ok
Enabled 属性本身就是控制是否可用，就是只读，