社区
Delphi
帖子详情
怎样使窗口由不透明变成半透明,并慢慢消失?
haisha
2003-10-16 04:11:39
包括窗口上的控件和窗口一起变化,谢谢
...全文
65
9
打赏
收藏
怎样使窗口由不透明变成半透明,并慢慢消失?
包括窗口上的控件和窗口一起变化,谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
佣工7001
2003-10-16
打赏
举报
回复
动态改变AlphaBlend 的值
delphi_xizhousheng
2003-10-16
打赏
举报
回复
AnimateWindow这个API比较通用,可以看帮助 参数很简单
jollyfeng
2003-10-16
打赏
举报
回复
procedure TForm1.Button2Click(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;
end;//窗口由不透明变成半透明,并慢慢消失
procedure TForm1.FormCreate(Sender: TObject);
animatewindow(self.Handle,250,aw_center or aw_activate);
end;//刚开始运行窗口有小变大。
IORILI
2003-10-16
打赏
举报
回复
我也是d6
haisha
2003-10-16
打赏
举报
回复
我是6,谢谢几位
hmzgz81
2003-10-16
打赏
举报
回复
哦!那楼主是delphi几啊?
呵呵!
IORILI
2003-10-16
打赏
举报
回复
procedure TForm1.Button2Click(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;
end;
Delphi_Li
2003-10-16
打赏
举报
回复
以下方法只能在Windows 2000以上的计算机中实现!!!
Delphi的版本必须使6以上!!!
设置Form的AlphaBlend属性(0:全透明,255:不透明)!!!
循环设置这个值就可以实现你的要求!!!
hmzgz81
2003-10-16
打赏
举报
回复
用一个timer控制form的AlphaBlendValue值!
prcedure TForm1.Timer1.Timer(Sender:TObject);
var i:=Form1.AlphaBlendValue;
if i<255 then
i:=i+15;
if i>255 then
begin i:=255;
Timer1.Enabled:=False;
end;
Form1.AlphaBlendValue:=i;
end;
使用
透明
/
半
透明
窗口
/图片时遇到的一些问题
最近两周使用
透明
、
半
透明
窗口
比较多,在此之前我写代码都借助封装好了的皮肤库,而现在都是“手写”的——石器时代大冒险,遇到了一些困难,在此做总结。1、GDI函数对Alpha值的忽视。 GDI函数只有AlphaBlend api...
Android应用Activity、Dialog、PopWindow、Toast
窗口
添加机制及源码分析
)当时给大家承诺过我们要从应用控件一点一点往下
慢慢
深入分析,所以现在开始深入,但是本篇的深入也只是仅限Window相关的东东,之后文章还会继续
慢慢
深入。 2 浅析Window与WindowManager相关关系及源码 通过...
Adobe Premiere 5.1教程(1)我的第一部电影
Adobe Premiere 5.1教程(1)我的第一部电影 ...* Monitor
窗口
是用来监看信号的,左边的是监看信号源,右边的监看输出结果; * Timeline
窗口
是用来进行视音频编辑的地方,也就是我们的主要工作区; *
IOS面试题目及答案1
你知道哪些设计模式,并简要叙述? 设计模式是一种编码经验,就是用比较成熟的逻辑去处理某一种类型的事情。 1). MVC模式:Model View Control,把模型 视图 控制器 层进行解耦合编写。 2). MVVM模式:Model View ...
《史上最全、最强Java学习路线知识点整理!!全是干货!!》
当链表的深度达到8的时候,也就是默认阈值,就会自动扩容把链表转成红黑树的数据结构来把时间复杂度从O(n)
变成
O(logN)提高了效率 JDK1.7用的是头插法,而JDK1.8及之后使用的都是尾插法,那么他们为什么要这样...
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章