【结】GraphicTab1.Items.Add报错,如何动态添加Tab标签页**

tang_cy

procedure TMainForm.BizFormCreate(Sender: TObject);
var
   lTGraphicTabButton : TGraphicTabButton;
begin

     lTGraphicTabButton := GraphicTab1.Items.Add;
     lTGraphicTabButton.Caption := '测试';

     lTGraphicTabButton := GraphicTab1.Items.Add; //这里报错了
     lTGraphicTabButton.Caption := '测试2';
end;

如果只是增加一个页签没问题,两个以上就报错

jiahaiming

楼主，报什么错？

lixy

GraphicTab1.Items.GraphicTab.AddTab('测试');
     GraphicTab1.Items.GraphicTab.AddTab('测试2');

tang_cy

报错如下:
运行专家登入的时候发生异常: Access violation at address o25A12DA in module 'CLRModel.bpl'. Read of address 00000000
类型: EAccessViolation

用三楼的方法成功,可以结贴了,谢谢