EbusError на присвоении PageControl FPC / Lazaurs
-
28-09-2019 - |
Вопрос
Я пытаюсь создать динамические TTabsheets для моей программы.
Написано в FPC / Lazarus, построенный для ARM / WINCE
Все работает, в том числе время проектирования, созданные таблицы, но следующий код
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;
на линии Tab.pagecontrol: = pageControl1; исключение EbusError, ошибка шины или недооцененный доступ к данным Поднялся.
Я прочитал это, но я не уверен, как это относитсяhttp://wiki.freepascal.org/windows_ce_development_notes#alignment_problems.
Код работает нормально для Win32
FPC версия 2.2.4.
Решение
После некоторой помощи отсюдаhttp://lazarus.freepascal.org.
Ответ должен был использовать ежедневный снимок, Lazarus-0.9.29-27140-FPC-2.4.3-20100819
Все исправлено
Не связан с StackOverflow