码迷,mamicode.com
首页 > 其他好文 > 详细

tangram2.6(XE2)\Demo\notify\notifyGroup.groupproj

时间:2016-08-31 02:12:20      阅读:191      评论:0      收藏:0      [点我收藏+]

标签:

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;
dll中接收通知后

 

3、看不到什么时候加载了dll,难道是每一个dll自己注册自己?

initialization
  RegisterModuleClass(TUserModule);  也不是这句起的作用?

tangram2.6(XE2)\Demo\notify\notifyGroup.groupproj

标签:

原文地址:http://www.cnblogs.com/rogge7/p/5824269.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!