I am trying to create dynamic TTabSheets for my program.
Everything works, including design time created tabsheets but the following code
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