DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: saulojb_b1975xxx
今日帖子: 0
在线用户: 4
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 allen_wgq (yuren) ★☆☆☆☆ -
普通会员
2004/8/2 17:00:04
标题:
关于窗体的逐渐消失的实现 浏览:967
加入我的收藏
楼主: 我需要一个窗体在一定时间后(由timer控制时间),窗体消失,不过消失的效果最好是渐变式的消失,颜色逐渐变浅,直到最后消失

谢谢
----------------------------------------------
 [ Impossible is nothing ]
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2004/8/2 17:53:51
1楼: 试试以下这个函数:

AnimateWindow (Handle,1000,AW_VER_NEGATIVE);//从下向上展开
//第一个是句柄,第二个是设置时间,第三是显示方式
AnimateWindow (Handle,1000,AW_VER_POSITIVE);//从上向下展开
AnimateWindow (Handle,1000,AW_HOR_POSITIVE);//从左向右展开
AnimateWindow (Handle,1000,AW_HOR_NEGATIVE);//从右向左展开
AnimateWindow (Handle,1000,AW_CENTER);//从中间展开
AnimateWindow (Handle,1000,AW_BLEND);//淡出
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 allen_wgq (yuren) ★☆☆☆☆ -
普通会员
2004/8/3 9:00:55
2楼: 我试过了,是可以的,本来我是用alpherblendervalue属性也实现了的。不过还是这样更容易一些 。

不过还有一个问题,你只给出了淡出的效果,请问如果要求淡入呢?就是能逐渐的消失,又该用什么函数实现呢?谢谢
----------------------------------------------
 [ Impossible is nothing ]
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2004/8/3 11:30:20
3楼: 不好意思,我给的最后一个AnimateWindow应该是淡入,至于淡出(逐渐消失)似乎没直接方法,你用AlphaBlenderValue自己写一个吧,放在FormCloseQuery等事件中即可。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 allen_wgq (yuren) ★☆☆☆☆ -
普通会员
2004/8/3 11:39:46
4楼: 我已经实现了,多谢指点
----------------------------------------------
 [ Impossible is nothing ]
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行60.05859毫秒 RSS