【结】TabSheet出错**

杭州世晨

在业务功能中代码如下：
想根据不同的功能名称，DocView中的tabsheet2不显示或显示。
运行过程中，效果达到了，单总是会先弹出一个错误提示（见图）。
版本：3012

procedure TMainForm.BizFormCreate(Sender: TObject);
var
  s: string;
  p: TPageControl;
  t: TTabSheet;
begin
  caption := FuncBroker.Func.DisplayName;

  s := FuncBroker.Func.ID ;
  p := CCYSSQJBXYWXX.TMRBD(DocViewCCYSSQJBXYWXX_MRBD.Doc).PageControl1;
  t := CCYSSQJBXYWXX.TMRBD(DocViewCCYSSQJBXYWXX_MRBD.Doc).TabSheet2;
  try
    if s = 'TXCCYSSQD' then
    begin
      t.TabVisible := false;
      p.ActivePageIndex := 0;
    end else if s = 'BMSPCCYSSQD' then
    begin
      t.TabVisible := false;
      p.ActivePageIndex := 0;
    end else if s = 'BGSSP_PZCCYSSQD' then
    begin
      t.TabVisible := false;
      p.ActivePageIndex := 0;
    end else if s = 'ZGLDPZCCYSSQD' then
    begin
      t.TabVisible := false;
      p.ActivePageIndex := 0;
    end else if s = 'TXCLFBXD' then
    begin
      t.TabVisible := true;
      p.ActivePageIndex := 1;
    end else if s = 'BMSPCLFBXD' then
    begin
      t.TabVisible := true;
      p.ActivePageIndex := 1;
    end else if s = 'CWSHCLFBXD' then
    begin
      t.TabVisible := true;
      p.ActivePageIndex := 1;
    end;
  finally
  end;
end;

杭州世晨

经跟踪，发现出错时，执行到：
      t.TabVisible := false;
请给个解决办法。谢谢

杭州世晨

要求：只要不弹出错误提示就行了

atiger

隐藏
TabSheet1.Visible := False;
TabSheet1.TabVisible:= False;
显示
  TabSheet1.Visible := true;
  TabSheet1.TabVisible:= true;

还有，你少一些判断（if）看看

杭州世晨

结贴吧
      t.TabVisible := false;
      p.ActivePageIndex := 0;
两行颠倒一下就行了，莫名其妙。

atiger

o,谢谢楼主共享方法

对了，我问一下，你当前激活的是否是t，所以设置t的visible就会出现问题呢