ebuserror على تعيين pagecontrol FPC/Lazaurs
-
28-09-2019 - |
سؤال
أحاول إنشاء TTABSHEETS ديناميكية لبرنامجي.
مكتوبة في FPC/Lazarus التي يتم بناؤها للذراع/Wince
كل شيء يعمل ، بما في ذلك وقت التصميم الذي تم إنشاؤه في tabsheets ولكن الكود التالي
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