AdvOfficePager

VCL TMS VCL UI Pack
1

Hello,

i get a exception in the AdvOfficePager after closing pages and then adding new pages. I using the "FreeOnClose" property.

To get the error, create a new Form having a button and a AdvOfficePager.
Use the following code for the OnClick event of the Button:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  temp:tadvofficepage;
begin

  AdvOfficePager1.FreeOnClose:=true;

  for I := 0 to AdvOfficePager1.AdvPageCount-1 do
  showmessage(AdvOfficePager1.PageAtTabIndex(i).Caption);

  AdvOfficePager1.CloseActivePage;
  AdvOfficePager1.CloseActivePage;

  temp:=AdvOfficePager1.AddAdvPage;
  temp.Caption:='test';

  //the error appears here
  for I := 0 to AdvOfficePager1.AdvPageCount-1 do
  showmessage(AdvOfficePager1.PageAtTabIndex(i).Caption);


end;

regards

2

We traced & solved this issue. The next update will address this.