EBusError при назначении PageControl fpc / Lazaurs - PullRequest
Новая
       40

EBusError при назначении PageControl fpc / Lazaurs

0 голосов
/ 13 августа 2010

Я пытаюсь создать динамический 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

1 Ответ

1 голос
/ 20 августа 2010

После некоторой помощи отсюда http://lazarus.freepascal.org

Ответом было использование Daily Snapshot, Lazarus-0.9.29-27140-fpc-2.4.3-20100819

Все исправлено

...