为啥不选“build with runtime packages”的情况下,GetClass返回nil呢
为何不选“build with runtime packages”的情况下,GetClass返回nil呢
加载bpl中的窗体时
为何不选“build with runtime packages”的情况下,GetClass返回nil呢
选择“build with runtime packages”,Getclass是可以取到类的
bpl的useage option为designtime and runtime
加载bpl窗体的代码如下
------解决方案--------------------
窗体类使用 RegistClass 注册了没?
------解决方案--------------------
楼主解决么?
加载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 注册了没?
------解决方案--------------------
楼主解决么?