我是这样处理的:
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. 请各位高手帮忙!急!急!急!
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. 请各位高手帮忙!急!急!急!
解决方案 »
- 100分求救 Midas错误,急急急!!!
- 关于毕业设计,请帮忙
- 怎么样用DELPHI 开发COM组件和调用COM组件,有完整的例子么?,谢谢。
- 神奇的问题????
- 如何修改Dbgrid的标题
- 怎么样取得在打印设置中设置的打印机名称?
- 如何判断表是否存在?
- 求救 Interbase 建立Table的问题 请各位专家解难
- 如何在两个窗体间传递变量
- 我有两台均装有WIN98机器,一台启动时显示用户名:密码:域:的提示框,按确定键进入WIN98,而另一台不显示提示框直接进入WIN98,什么回事,怎么设定??
- 请问各位大虾怎样通过modem发传真?
- 关于在delphi6下用package分割多个程序模块,请问使用dll和bpl有哪些优缺点?
能否说得更详细一些,我试过了还是不行,AClass 的返回值不知为何始终为nil.所以、、、、、、,谢谢。
你已经要将主程序的编译选项中 Build with Runtime Package
选项选上, 这样 AClass就不会返回nil了. 我也在研究Package 架构, 如果需要共同讨论,
到 我的论坛 http://www.bj99.net/bbs 来
一起讨论研究吧