[Solved] EBusError on assigning pages to PageControl

[darkaxi0m]

I am trying to create dynamic TTabSheets for my program.
Everything works, including design time created tabsheets but the following code

Code: [Select]

try
  Tab      := TTabSheet.Create(PageControl1);
  logit('1');
  Tab.PageControl := PageControl1;
  logit('2');
  Tab.Caption := gname;
except
  on E: Exception do
  begin
    logit(e.message);
    logit(e.classname);
  end;
end;  

on the line Tab.PageControl := PageControl1; the exception

EBusError, Bus error or misaligned data access is raised.

the code works fine for win32
FPC Version 2.2.4
Lazarus 0.9.28.2 beta

[felipemdc]

Could you try with one of the latest snapshots? In the left part of this website there is a link to "Daily Snapshots"

[darkaxi0m]

Works with fpc 2.4.3, from the snapshots
Thankyou

Lazarus-0.9.29-27140-fpc-2.4.3-20100819-win32.exe
Lazarus-0.9.29-27140-fpc-2.4.3-20100819-cross-arm-wince-win32.exe