Delphi做一个调用Bpl包(包含一个窗体)的Exe框架 - 提示找不到类
Delphi做一个调用Bpl包(包含一个窗体)的Exe框架-提示找不到类;functionCreateFormByClassName(constClassName:str...
Delphi做一个调用Bpl包(包含一个窗体)的Exe框架 - 提示找不到类;
function CreateFormByClassName(const ClassName: string): TCustomForm;
var
AClass: TPersistentClass;
begin
{ Note that TApplication "owns" this form and thus it must be freed prior
to unloading the package }
AClass := GetClass(ClassName); {问题就出在这里 AClass总是读取到nil值 提示未注册类！！！}
if AClass <> nil then
Result := TComponentClass(AClass).Create(Application) as TCustomForm
else
raise Exception.CreateFmt(sErrorCreateForm, [ClassName]);
end; 展开
function CreateFormByClassName(const ClassName: string): TCustomForm;
var
AClass: TPersistentClass;
begin
{ Note that TApplication "owns" this form and thus it must be freed prior
to unloading the package }
AClass := GetClass(ClassName); {问题就出在这里 AClass总是读取到nil值 提示未注册类！！！}
if AClass <> nil then
Result := TComponentClass(AClass).Create(Application) as TCustomForm
else
raise Exception.CreateFmt(sErrorCreateForm, [ClassName]);
end; 展开
2个回答
展开全部
只可能是两个原因：1_ 这个类未注册
2_ 主程序（EXE程序）没有勾选Build With Run Package
2_ 主程序（EXE程序）没有勾选Build With Run Package
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
启帆信息
2024-11-22 广告
作为启帆信息科技股份有限公司的工作人员，对于Omniverse View有一定了解。Omniverse View是NVIDIA Omniverse平台中的一个强大工具，它易于导航且功能丰富，可以支持任何技能水平的专业人员展示和审查3D设计项...
点击进入详情页
本回答由启帆信息提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
