|
盒子资源分类 |
![]() |
|
|
|
像QQ窗口抖动一样的简单方法 |
![]() |
关键字:就像QQ窗口抖动一样 |
来 自:原创 |
平 台:Win2k/XP/NT,Win2003 |
下载所需:0 火柴 |
深浅度:中级 |
完成时间:2009/1/4 |
发布者:ankebeier |
发布时间:2009/1/6 |
编辑器:DELPHI7 |
语 种:简体中文 |
分 类:窗体 |
下载浏览:2972/11001 |
|
|
|
|
这是我在盒子上发的第二个小程序,给单位局域网做了个报警程序,突然想到在向别人发信息时为引起别人注意。可以使窗口抖动!便下了这段代码,特别简单! |
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们! |
相关文章 |
|
![]() |
|
相关评论 |
![]() |
共有评论13条
当前显示最后6条评论
|
xiaofei7569 |
2009/1/7 11:46:43 |
也不觉得很有深度 |
rainstorey |
2009/1/7 12:27:23 |
感谢LZ提供开心一刻 |
chbqq |
2009/1/7 17:53:39 |
和我用的方法一样嘛 |
ankebeier |
2009/1/7 20:46:48 |
我们因编程而快乐,其实编程就像变魔术,不知道的时候感觉深不可测,当你知道了才觉得是那么简单,代码的简单与否不重要,重要的是我们从编程中获得快乐。其实我觉得这几段代码还不是很漂亮很完美,大家发现了吗?用到了Sleep就会产生停顿的!抖的时候总是会有一点延迟。所以还希望它能变得更完美! |
szyourname |
2009/1/8 16:03:22 |
简单而实用,不错不错! |
ankebeier |
2009/1/8 19:56:43 |
可以在每个Sleep的后面加上Application.ProcessMessages;这样就防止了延迟。 Self.Top := Self.Top - 3; Sleep(40); Application.ProcessMessages; Self.Left := Self.Left - 3; Sleep(40); Application.ProcessMessages; Self.Top := Self.Top + 3; Sleep(40); Application.ProcessMessages; Self.Left := Self.Left + 3; Sleep(40); Application.ProcessMessages; 问题解决了! |
我要发表评论 |
查看全部评论 |
|
|
|