Bpl 代码
---------------
unit uOplComn;interfaceuses
Windows, SysUtils, Classes, Forms, Controls, uFuncComn;
type
TskOplComn = class(TPersistent)
public
procedure OpenPartsInfoForm;
end;implementationresourcestring
sErrorCreateForm = '创建窗体失败!'#13#10'窗体名 %s ';{ TskOplPkg }procedure TskOplComn.OpenPartsInfoForm;
begin
LoadAddinPackage('TskBsIf', 'TskBsIf.bpl');
ShowModalFormByClassName('TfrmPartsInfo');
end;initialization
RegisterClass(TskOplComn);finalization
UnregisterClass(TskOplComn);end.----------------
在Exe中是动态调用的Bpl,请问,在EXE中如何调用 TskOplComn 的OpenPartsInfoForm 过程呢?
---------------
unit uOplComn;interfaceuses
Windows, SysUtils, Classes, Forms, Controls, uFuncComn;
type
TskOplComn = class(TPersistent)
public
procedure OpenPartsInfoForm;
end;implementationresourcestring
sErrorCreateForm = '创建窗体失败!'#13#10'窗体名 %s ';{ TskOplPkg }procedure TskOplComn.OpenPartsInfoForm;
begin
LoadAddinPackage('TskBsIf', 'TskBsIf.bpl');
ShowModalFormByClassName('TfrmPartsInfo');
end;initialization
RegisterClass(TskOplComn);finalization
UnregisterClass(TskOplComn);end.----------------
在Exe中是动态调用的Bpl,请问,在EXE中如何调用 TskOplComn 的OpenPartsInfoForm 过程呢?
解决方案 »
- delphi中这种控件如何做?
- 使用SetPriorityClass将自己的程序的优先权设置为实时,会有什么副作用?
- QuickReport 的导出文件 *.qrp 如何用代码的方式保存成图片格式
- 关于winExec()调用的难题!
- 自己想开公司!用DELPHI
- 最近做了一个用于Delphi的调试工具,请大家试用一把!
- 大侠们~共同来分析做一个系统分析吧
- 很菜:我却解决不了:来看看
- 客户在报印报表时,想自定义纸张类型,我用的是quickreport,但好像不起什么作用。有什么办法可以解决吗?谢谢!
- 输入数据时如何用回车键替代Tab键,使文本框焦点移动?
- hook (ws2_32.dll / send) 怎么修改封包后再发送???buf长度不变容易修改,长度变化了就不行了.
- 按钮问题
OpenPartsInfoForm定义为接口方法。
主程序取到该对象后,查询相应接口,若成功,则可以直接调用。
我也想过用接口,但不合适,因为这个bpl我想做为业务逻辑层,EXE只做为界面,不想在EXE写过多的代码