Question

Delphi中关于pagecontrol中的tabsheet的问题

Tabsheet的位置在左边，（就像windows优化大使的导航栏）举例如下
A
A1
A2
B
B1
B2
C
我想要的是刚开始的时候显示这样
A
B
C
当点A的时候显示
A
A1
A2
B
C
当点B时显示B1、B2，此时如果A1、A2已打开，则关闭A1、A2，
我是新手，试了很多次都没有成功，求高手指点！
回答者： mini188 - 见习魔法师 三级 3-5 21:02
回答者： lwson2008 - 门吏 二级 3-6 00:09
多谢两位的答案，虽然没明白，但我已经试出来了。只是代码有点复杂。

这是我写的，不知道怎么优化代码，请前辈指点：
http://hi.baidu.com/%BB%C3%DA%D0/blog/item/ddfc23c34766055db219a84e.html

Answer 1

pagecontrol不是有Page[0].pagevisable属性吗？

Answer 2

F_Sale.A.TabVisible:=true;
F_Sale.B.TabVisible:=false;
F_Sale.C.TabVisible:=false;
F_Sale.D.TabVisible:=false;