我是这样处理的:
procedure TForm1.Button1Click(Sender: TObject);
var
  AClass: TPersistentClass;
begin
  LoadPackage('c:\PAK.bpl');
  AClass := GetClass('TForm2');
  if AClass <> nil then
    with TComponentClass(AClass).Create(Application) as TCustomForm do
      Visible := True;
end;   现在问题是:'TForm2'已经在PAK的单元里已注册,而且c:\PAK.bpl已找到,但AClass 的返回值不知为何始终为nil.   请各位高手帮忙!急!急!急!

解决方案 »

  1.   

    with class(findclass('窗体名')).Create(Application) do
      

  2.   


      能否说得更详细一些,我试过了还是不行,AClass 的返回值不知为何始终为nil.所以、、、、、、,谢谢。
      

  3.   

    wzhong(holly), 你的问题我碰到过, 刚刚解决掉了
     你已经要将主程序的编译选项中  Build with Runtime Package
    选项选上, 这样 AClass就不会返回nil了. 我也在研究Package 架构, 如果需要共同讨论,
    到 我的论坛 http://www.bj99.net/bbs 来
    一起讨论研究吧