将BarCodeView设置为自动调整大小后如何获得边界？

Question

我正在运行时在Delphi上创建BarCodeView，然后将其添加到TfrxReport的ReportPage中。

条形码显示得很好，但是当我尝试获得其宽度时，即使创建了条形码，我也仍然得到0，并且明显长于0。

这是一些代码。

Page:= Report.FindObject('Page1') as TfrxReportPage;;

BarCode:= TfrxBarCodeView.Create(Page); BarCode.Name:='Codigo';

BarCode.WideBarRatio:=2;
BarCode.Zoom:=1;
BarCode Font.Size:=6;
BarCode.ShowText:= True;
BarCode.BarType:= bcCodeEAN128;

BarCode.Text:= 'Something123';

BarCode.AutoSize:=True; BarCode.Height:= 50; BarCode.Top:= 5; BarCode.Left:= 5;

现在，如果我尝试检查条形码视图属性，即使调用下一个，我也将从宽度属性中获得0：

BarCode:=Report.FindComponent('Codigo') as TfrxBarCodeView;

显示类似这样的消息时：
ShowMessage('code width: '+BarCode.Width.ToString);

即使BarCodeView在报表中显示正常，我也得到0。

有什么想法如何在启用自动调整大小的情况下正确设置这些属性并在运行时从Delphi创建条形码？