首页 > 代码库 > tangram2.6(XE2)\Demo\notify\notifyGroup.groupproj
tangram2.6(XE2)\Demo\notify\notifyGroup.groupproj
1、以下此异常,为exe没有加载到Tangram_Core.bpl 放到exe当前文件夹下即可
2、此例子的接口实现在exe中,exe中下发通知到dll,dll 中 as 获取接口传窗体到exe中;
procedure TFrmMain.load; //exe下发通知var intf:INotifyService;begin if SysService.QueryInterface(INotifyService,Intf)=S_OK then begin self.lst_sel.Clear; Intf.SendNotify(NotifyFlag,self); end;end;
procedure TUserModule.Notify(Flags: Integer; Intf: IInterface);begin if Flags=NotifyFlag then begin (Intf as IClsRegister).RegCls(‘浏览器‘,TFrmWebbrowser); (Intf as IClsRegister).RegCls(‘选 项‘,TFrmOptions); end;end;
3、看不到什么时候加载了dll,难道是每一个dll自己注册自己?
initialization
RegisterModuleClass(TUserModule); 也不是这句起的作用?
tangram2.6(XE2)\Demo\notify\notifyGroup.groupproj
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。