为啥不选“build with runtime packages”的情况下,GetClass返回nil呢

为何不选“build with runtime packages”的情况下,GetClass返回nil呢
本帖最后由 seleron 于 2014-04-18 16:14:05 编辑
加载bpl中的窗体时
为何不选“build with runtime packages”的情况下,GetClass返回nil呢
选择“build with runtime packages”,Getclass是可以取到类的
bpl的useage option为designtime  and runtime

加载bpl窗体的代码如下

procedure TForm1.btn1Click(Sender: TObject);
var
  h:HMODULE;
  clsBpl:TPersistentClass;
  nfrmBpl:TForm;
begin
  h:=LoadPackage(ExtractFilePath(Application.ExeName)+'package1.bpl');
  if h<>0 then
  begin
    clsBpl:=GetClass('TfrmBpl');
    if clsBpl<>nil then
    begin
      nfrmBpl:= TComponentClass(clsBpl).Create(Application) as TForm;
      nfrmBpl.Show;
    end;
  end;
end;


------解决方案--------------------
窗体类使用 RegistClass 注册了没?
------解决方案--------------------
楼主解决么?