【结帖】这样的消息提示要如何实现？**

cdz0451

不成啊,我按照8楼的方法加了  信息动态 然后在信息动态的 CREATE 事件里 谢了
Dialogs.ShowMessage('111111');
我初始化运行的时候,不提示.必须点击 才好使

tfb

修改业务模型\协同系统\公共资源\协同常量库的下面的方法，增加你要默认运行的功能URL
static function TRTLConsts.RunFuncs: string;
begin
  Result := 'Biz:\COLLABORATION\DesktopFunc.Func;' +
    'Biz:\COLLABORATION\SchedulerFunc.Func';
end;

请问8楼所说的这个方法 我怎么找不到呀,

cdz0451

static function TRTLConsts.RunFuncs: string;
begin
  Result := 'Biz:\COLLABORATION\DesktopFunc.Func;' +
    'Biz:\COLLABORATION\SchedulerFunc.Func;'+
    'Biz:\JTTXM\YWGN8.Func';
end;

我真加了....

cdz0451

然后我在 YWGN8.Func  功能的CREATE 事件里 写了这个
jsDialogs.ShowMsg('Click me!','');  没有反映

tfb

static function TRTLConsts.RunFuncs: string;
begin
  Result := 'Biz:\COLLABORATION\DesktopFunc.Func;' +
    'Biz:\COLLABORATION\SchedulerFunc.Func;'+
    'Biz:\COLLABORATION\WORKLOGFUNC.FUNC';
end;

我新加进去的功能不能运行起来呀, 请问你加的能吗?

cdz0451

我的能功能可以运行.....  只是不能实现3楼的效果

tfb

那你手动运行这个功能的时候会弹出消息框吗？  再看看你写在哪个事件下了

cdz0451

嗯,我手动运行这个功能. 代码就可以执行. 没有问题

zfang

换成这样看看
static function TRTLConsts.RunFuncs: string;
begin
  Result := 'Biz:\JTTXM\YWGN8.Func;' +
    'Biz:\COLLABORATION\DesktopFunc.Func;'
    'Biz:\COLLABORATION\SchedulerFunc.Func';
end;

cdz0451

如果想19楼这样改....运行直接报错...不行