分配 PageControl fpc/Lazaurs 时出现 EBusError

发布于 2024-09-14 01:03:19 字数 713 浏览 6 评论 0原文

我正在尝试为我的程序创建动态 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上运行良好< br> FPC版本2.2.4

原文

I am trying to create dynamic TTabSheets for my program.
Written in FPC/Lazarus being built for ARM/WinCE
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.

I Read this, but im not sure how it applies
http://wiki.freepascal.org/Windows_CE_Development_Notes#Alignment_problems

the code works fine for win32
FPC Version 2.2.4

分享到QQ

分享到微博