窗口闪烁（类似QQ聊天工具那样的！来了消息就闪烁）(50分)

小虾米爱吃鱼 · 2006-08-25

用这个FLASHWINDOW可以实现一部分，就是窗口没有最小化的时候可以闪烁，可是最小化了怎么实现闪烁呢？（向用户报警用的）

cqwty · 2006-08-25

收到信息后开始闪烁托盘图标，利用托盘来做比较好！

我行我酷 · 2006-08-25

关注这个问题...如何能在C/S系统里面,有了新消息就提示一下...

小虾米爱吃鱼 · 2006-08-25

我这里没有托盘图标的！我就一个普通的程序，就怕他最小化了之后去做别的事情，这样的话要是有什么事情发生了他就不知道了！最好是做一个闪烁效果，来提醒他一下啊！

cqwty · 2006-08-25

你改成托盘的图标撒，这样你干什么事都不怕，万一你做其他事的时候关闭了呢？放在任务栏占位置多难受哦

nicai_wgl · 2006-08-25

恩，可以用定时器更换托盘图标，来显示事件，就和QQ一样。

小虾米爱吃鱼 · 2006-08-25

哎呀，我是要问你们能不能实现我现在的要求，你们为什么要我该变设计思路呢？
我说了不要托盘的！就普通的程序！

cqwty · 2006-08-25

哈哈，这个倒是的，不过收到消息之后，你调用api函数把窗体置顶吧，这样应该可以了！

小虾米爱吃鱼 · 2006-08-25

CQWTY：
这样也不行啊！这样的话就强行作用给用户了！不能这么强制啊！只能做一个善意的提醒！不提醒是软件的错，提醒了用户不去处理，那是他的错。如果置顶了，刚好这时候用户再处理更加紧急的事情的话就麻烦了啊！那就又是软件的错了啊

ufo! · 2006-08-25

这个简单,闪烁任务栏上的标题栏
flashwindow(form12.Handle,true);
第一个参数,表示要闪烁的窗口句柄
第二个参数,闪烁结束后的颜色,为true表示高亮
仅闪烁标题栏,不会影响用户的操作

ufo! · 2006-08-25

刚才没看仔细,我记得窗口最小化后也可以闪烁的,具体没试过.
如果不行,试试这个代码
SHOWWINDOW(form12.Handle,SW_SHOWMINNOACTIVE);
form12.Visible:= true;
flashwindow(form12.Handle,true);

小虾米爱吃鱼 · 2006-08-29

有没有更好的办法啊？

godelphi2004 · 2006-08-29

简单：
SetForegroundWindow(Application.MainForm.Handle);