用两种方法快速简单的实现窗口淡入淡出
来源:互联网 发布:台湾义隆单片机 编辑:程序博客网 时间:2024/04/28 08:14
在应用程序中引入图片淡入及淡出,可以让用户界面更加美观。以前报刊杂志中介绍
的常用方法有两种:一是自己写程序,诸个象素进行混合渐变;二是使用DirectX,建立一
个带Alpha通道的Surface。第一种,效果可以自己控制,但比较麻烦,而且一般不容易生
成硬件优化的代码;第二种速度很快,却需要使用DirectX库。
本文结合Delphi实例代码,介绍两种简单快速的实现方法,算是一个总结吧,希望能
对初学者有所帮助。
一:AnimateWindow函数的使用:
(一)函数原型:
BOOL AnimateWindow(
HWND hwnd, // 要进行特效显示的窗体的句柄
DWORD dwTime, // 动画持续时间,以毫秒为单位
DWORD dwFlags // 动画类型
);
(二)参数设置:
hwnd :用“窗体名.handle”即可,如:Form1.handle;
dwTime:一般情况下用400比较合适,我偏向于1000;
dwFlags:可以设为多种效果,详见MSDN,这里我只介绍淡入淡出用到的参数AW_BLEND;
如果是淡入,设为AW_BLEND即可,如果是淡出,设为AW_BLEND or AW_HIDE。
(三)程序实例:
新建一个工程,在生成的窗体Form1上添加一个按钮Button1,Button1的Caption设为“淡
出”;接下来添加如下两段代码,实现淡入淡出:
1、淡入:双击Form1,在其“OnCreate”事件中添加:
AnimateWindow(Form1.Handle,1000,AW_BLEND);
2、淡出:双击Button1,在其“OnClick”事件中添加:
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;//关闭窗口
整个程序的procedure如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_BLEND);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_BLEND);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
form1.Close;
end;
二、AlphaBlend属性结合Timer组件:
(一)原理:
在Delphi6.0以上(6.0以下我不了解),每个窗体有AlphaBlend属性和AlphaBlendValue
属性,将AlphaBlend属性设为True,然后在Timer组件中随着时间改变AlphaBlendValue的
值(0-255)即可。
(二)程序实例:
新建一个工程,并添加一个窗体Form2,将其AlphaBlend属性设置为True;在窗体Form1上添
加一个按钮Button1,Caption属性设为“淡入”,在Form2上添加一个按钮Button1,Caption
属性设为“淡出”;另外,在Form2上添加两个Timer组件Timer1、Timer2,将它们的Interval
属性设为3(越大动画时间越长),Enable设为False;接下来添加如下4段代码:
1、双击Form1上的Button1,在其“OnCreate”事件中添加:
Form2.AlphaBlendValue:=1;//窗体从透明开始
Form2.Show; //显示窗体Form2
Form2.BringToFront; //将窗体Form2移到前端
Form2.Timer1.Enabled:=true; //启动Timer1,控制窗体可见度-增加
2、双击Form2上的Button1,在其“OnCreate”事件中添加:
Timer2.Enabled:=true; //启动Timer2,控制窗体可见度-减少
3、双击Form2上的Timer1,在其“OnTimer”事件中添加:
Form2.AlphaBlendValue:=Form2.AlphaBlendValue+1;//增加可见度
Timer2.Enabled:=false; //停止Timer2
//如果可见度达到最大,停止Timer1
if Form2.AlphaBlendValue=255 then
timer1.Enabled:=false;
Form2.AlphaBlendValue:=Form2.AlphaBlendValue+1;//增加可见度
Timer2.Enabled:=false; //停止Timer2
//如果可见度达到最大,停止Timer1
if Form2.AlphaBlendValue=255 then
timer1.Enabled:=false;
4、双击Form2上的Timer2,在其“OnTimer”事件中添加:
Form2.AlphaBlendValue:=Form2.AlphaBlendValue-1;//减少可见度
Timer1.Enabled:=false; //停止Timer1
//如果可见度达到最小,停止Timer2
if Form2.AlphaBlendValue=0 then
begin
timer2.Enabled:=false;
Form2.Close;
end;
- 用两种方法快速简单的实现窗口淡入淡出
- 用两种方法快速简单的实现窗口淡入淡出
- 窗口淡入淡出效果的实现
- 窗口淡入淡出效果的实现
- 窗口淡入淡出效果的实现
- 窗口淡入淡出效果的实现
- 如何实现窗口的淡入淡出
- jQuery实现窗口的淡入淡出效果
- 窗口淡入淡出效果的实现 .
- 图片的淡入淡出的实现方法
- Java实现淡入淡出窗口
- JAVA窗口的淡入淡出
- 实现窗口淡入淡出(窗口透明)
- JQUERY常用效果简单实现方法淡入淡出,隐藏等
- 简单的淡入淡出动画
- 使用AnimateWindow来实现窗口淡入淡出
- [转]VC2005中实现窗口淡入淡出
- 简单的实现播放背景音乐(淡入淡出效果)
- Start blogging
- 英文翻译1
- 带鼠标图形的截屏代码
- 快速上手Spring--4.安装和使用SpringIDE
- 敏捷和CMM(转载自网易科技)
- 用两种方法快速简单的实现窗口淡入淡出
- name to code mirroring!
- 读三毛
- Jeaf CN 框架终于完成了 0.1的测试了
- 在NetBeans平台上开发J2ME游戏实例讲解(第一部分)
- 惊闻李开复转投Google
- 在Eclipse中开发struts应用程序
- XWork学习笔记(1)
- Google中国渠道变阵 上海火速成总代首选