pagecontral切换问题

Question

有4个pages,增加，修改，查询，预警
如果在权限表里面，就都可以切换，如果不在权限表里面，只能在查询跟预警里面切换，不怎么怎么弄？

Answer 1

有个tabvisible属性可以隐藏，但是我不想隐藏，指向让他切换不过去。

Answer 2

没权限访问的page就隐藏起来，有权限时就显示出来
pageControl1.Pages[index].TabVisible := False;

Answer 3

var
  lastPage: Integer;procedure TForm1.pgc1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  lastPage := pgc1.TabIndex;    // 保存上次的tabindex
end;procedure TForm1.pgc1Change(Sender: TObject);
begin
  if pgc1.TabIndex = 1 then
    // 不允许切换到tab1 ，如果是 tab1 就重新指定为上次选中的tab
    pgc1.TabIndex := lastPage;
end;

Answer 4

谢谢你，以后delphi专区就靠你回答了。