CBX&RIA模块与模块互通

一、        单元中添加udmclxBaseAppx

二、        设置对象、全局变量

1、      第一个AO中添加GlobalVars：

如：GlobalVars.AddObject(‘AO_PagingDemo’,Self); //把自已放进去，它可以被其他所有AO引用。

    GlobalVars.Values[‘a_Var’]=’test’; //设置变量，它可以被其他所有AO引用。

 GlobalVars.Values[‘login‘]=‘true‘; //设置变量，它可以被其他所有AO引用。

2、      在另一个AO中可以这样引用，如：

TmodRoot(GlobalVars.Objects[GlobalVars.Indexof(AO_PagingDemo)]);

if GlobalVars.Values[‘login‘] = ‘true‘ then

begin

end;

三、        发送消息

1、      消息名称：YM_XXXX  函数名称：DoSomethingForOther；

2、      设置消息：

Const

               YM_XXX:=WM_USER+2;

3、      发送消息

RostMessage(TmodRoot(GlobalVars.Objects[GolbalVars.IndexOf(AO_PagingDemo)]).Handle,YM_XXXX,0,0);

CBX&RIA模块与模块互通

原文：http://www.cnblogs.com/hsbs/p/4311305.html