社区
Delphi
帖子详情
怎样使窗口由不透明变成半透明,并慢慢消失?
haisha
2003-10-16 04:11:39
包括窗口上的控件和窗口一起变化,谢谢
...全文
58
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;
MySQL8之
窗口
函数实战&应用
由浅入深的将
窗口
函数相关知识讲解清楚,为了能够让读者轻松掌握
窗口
函数,本课程具备以下特点。 引入相关的数据表数据和项目需求,让读者感觉自己在实现真实的项目。 淡化纯理论的概念,重在实践。 知识点由浅入深...
使用
透明
/
半
透明
窗口
/图片时遇到的一些问题
最近两周使用
透明
、
半
透明
窗口
比较多,在此之前我写代码都借助封装好了的皮肤库,而现在都是“手写”的——石器时代大冒险,遇到了一些困难,在此做总结。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 ...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章