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

cdz0451

首先如图:

lisb

做一个这样的功能，默认运行起来。

cdz0451

登入界面后,如果"信息动态"(功能)里有新消息(2天以内),就提示用户有新消息就可以.然后用户自己点击 信息动态查看就可以了. 应该怎么实现这个提示呢? 请给个解决方法 谢谢

lisb

那就在信息动态这个功能创建的的时候判断一下有没有新消息，有就showmsg一个对话框提示一下就行了呗。

cdz0451

不行吧,提示的意思就是 先不点 信息动态  有什么好方法 说的细致点 谢谢

lisb

你可以把信息动态这个功能做为默认运行的功能啊，就是一登录系统就把这个功能默认运行起来，和工作台、日程这两个功能一样。

cdz0451

哦, 怎么设置成默认运行?

zfang

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

cdz0451

麻烦, 给个SHOWMSG的代码

lisb

jsDialogs.ShowMsg('Click me!','');