2024年4月30日发(作者：)
用两种方法快速简单的实现窗口淡入淡出
在应用程序中引入图片淡入及淡出，可以让用户界面更加美观。以前报刊杂志中介绍的常用方法有两种：一是自己写程序，
诸个象素进行混合渐变；二是使用DirectX，建立一个带Alpha通道的Surface。第一种，效果可以自己控制，但比较麻烦，
而且一般不容易生成硬件优化的代码；第二种速度很快，却需要使用DirectX库。
本文结合Delphi实例代码，介绍两种简单快速的实现方法，算是一个总结吧，希望能对初学者有所帮助。
一：AnimateWindow函数的使用：
（一）函数原型：
BOOL AnimateWindow(
HWND hwnd,
// 要进行特效显示的窗体的句柄
DWORD dwTime,
// 动画持续时间，以毫秒为单位
DWORD dwFlags
// 动画类型
);
（二）参数设置：
hwnd ：用“窗体名.handle”即可，如：;
dwTime:一般情况下用400比较合适，我偏向于1000；
dwFlags：可以设为多种效果，详见MSDN，这里我只介绍淡入淡出用到的参数AW_BLEND；
如果是淡入，设为AW_BLEND即可，如果是淡出，设为AW_BLEND or AW_HIDE。
（三）程序实例：
新建一个工程，在生成的窗体Form1上添加一个按钮Button1，Button1的Caption设为“淡
出”；接下来添加如下两段代码，实现淡入淡出：
1、淡入：双击Form1，在其“OnCreate”事件中添加：
AnimateWindow(,1000,AW_BLEND);
2、淡出：双击Button1，在其“OnClick”事件中添加：
AnimateWindow(,1000,AW_HIDE or AW_BLEND);
;//关闭窗口
整个程序的procedure如下：
procedure eate(Sender: TObject);
begin
AnimateWindow(,1000,AW_BLEND);
end;
procedure 1Click(Sender: TObject);
begin
AnimateWindow(,1000,AW_HIDE or AW_BLEND);
;
end;
procedure eate(Sender: TObject);
begin
AnimateWindow(,1000,AW_BLEND);
end;
procedure 1Click(Sender: TObject);
begin
AnimateWindow(,1000,AW_HIDE or AW_BLEND);
;
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”事件中添加：
lendValue:=1;
//窗体从透明开始
;
//显示窗体Form2
oFront;
//将窗体Form2移到前端
d:=true; //启动Timer1，控制窗体可见度-增加
2、双击Form2上的Button1，在其“OnCreate”事件中添加：
d:=true; //启动Timer2，控制窗体可见度-减少
3、双击Form2上的Timer1，在其“OnTimer”事件中添加：
lendValue:=lendValue+1;//增加可见度
d:=false; //停止Timer2
//如果可见度达到最大，停止Timer1
if lendValue=255 then
d:=false;
lendValue:=lendValue+1;
//增加可见度
d:=false;
//停止Timer2
//如果可见度达到最大，停止Timer1
if lendValue=255 then
d:=false;
4、双击Form2上的Timer2，在其“OnTimer”事件中添加：
发布评论