未找到Delphi BPL FMX XE3表单资源TForm1

时间:2013-08-03 02:11:06

标签: delphi firemonkey bpl

我已经制作了一份表格,我想在BPL中分发。
所以我创建了一个新的包和一个新表单,将registerClass添加到表单单元的初始化部分,并尝试使用大致以下代码手动加载BPL文件:

var
  frmHost
  : THandle;

  frmClass
  : TPersistentClass;

begin
  frmHost := LoadPackage(PChar(ExtractFilePath(ParamStr(0)) + 'frm.170.bpl'));
  if frmHost = 0 then //...

  frmClass := GetClass('TForm1');
  if frmClass = nil then // ...

  with TComponentClass(frmClass).Create(nil) as TCustomForm do
  begin
    ShowModal;
    Free;
  end;
end.

当我运行应用程序时,它会在with TComponentClass(...行停止并告诉我

Exception-Class EResNotFound with Message 'Resource TForm1 not found'

我缺少什么(卸货和清理除外)?

0 个答案:

没有答案