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

zfang · 发表于 2008-2-18 16:48:36

我这儿可以啊
没有执行代码的问题在于平台运行时信息动态这个功能没有获得焦点

cdz0451 · 发表于 2008-2-18 17:02:30

如果不放到前面,代码就不好使?
工作台必须放在前面啊. 你的这个提示框代码写在功能的什么事件里了?
如: 功能1 里面有个窗体1 你的代码写在功能1里还是功能1的窗体里

zfang · 发表于 2008-2-18 17:13:01

功能的主窗体的formshow中

cdz0451 · 发表于 2008-2-18 17:15:53

没有formshow啊我就看到 onshow了

cdz0451 · 发表于 2008-2-19 13:21:13

看看这个问题吧,帮解决下

lisb · 发表于 2008-2-19 13:46:42

你写在窗体的OnCreate事件中试试。

cdz0451 · 发表于 2008-2-19 13:49:22

这个昨天都试了... 看看能不能有没别提示方法. 还有,怎么能判断信息是2天以内的呢?

lisb · 发表于 2008-2-19 13:52:25

你想怎么提示呢？
判断两天内根据你信息的日期跟当前日期比较判断。

cdz0451 · 发表于 2008-2-19 14:00:20

就是如果有新消息,在进入工作台的时候.给个提示让用户知道去信息动态里看就可以.
信息的日期跟当前日期比较这个怎么实现?

zfang · 发表于 2008-2-19 14:21:18

代码可以写在
业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.BizFormShow(Sender: TObject);
事件中

类似于这样判断
if Business.System.SysUtils.DateToStr(Business.System.SysUtils.Date + 2) = '2008-2-21' then
jsDialogs.showMsg('dafdsafda','fdas');

		自动登录	找回密码
密码			立即注册