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;

dll中接收通知后

 

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

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