用两种方法快速简单的实现窗口淡入淡出

原创 2004年05月07日 18:49:00

                                       DelphiIdiot(呆飞白痴)
                                       Email:wangsl@dhc.com.cn
                                       QQ:46525765

    在应用程序中引入图片淡入及淡出,可以让用户界面更加美观。以前报刊杂志中介绍
的常用方法有两种:一是自己写程序,诸个象素进行混合渐变;二是使用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;
二、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;
         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;

Qt实现移入移出与淡入淡出效果

在用Qt做一些客户端时,经常需要实现循环播放一组图文,实现一些广告、步骤引导等效果; 而直接切换又比较生硬,需要加上一些常用的效果,比如淡入淡出效果、平移效果(移入移出)等等; 可以使用QMovi...
  • sowhat_Ah
  • sowhat_Ah
  • 2015年02月03日 20:02
  • 16975

MFC 中实现窗口淡入淡出、逐步放大显示效果

http://m.blog.csdn.net/blog/woaiwcy/4715336 [原]MFC 中实现窗口淡入淡出、逐步放大显示效果 2009-10-22阅读1444 评论0...
  • ranjio_z
  • ranjio_z
  • 2016年01月02日 11:11
  • 1268

Android 欢迎界面淡出动画效果(Animation)

进入App后,想做一个画面的淡出效果,如图所示:                                        代码非常简单 1 MainActivity.java packa...
  • Danielntz
  • Danielntz
  • 2016年03月21日 21:01
  • 3358

JQUERY常用效果简单实现方法淡入淡出,隐藏等

淡入淡出 $(document).ready(function(){     $("button").click(function(){         $("#div1").fad...
  • riuhazen
  • riuhazen
  • 2017年12月13日 19:45
  • 52

jQuery实现窗口的淡入淡出效果

在很多网页中都可以看到网页弹出的一个窗口,然后很多情况下面还会有淡入淡出的效果,下面我们就这个窗口的 淡入淡出效果来做一个例子,这个是使用jQuery来做的,其实非常简单。 首先看HTML代码 ...
  • a352193394
  • a352193394
  • 2012年05月20日 17:12
  • 3030

Java实现淡入淡出窗口

转载自: 一。代码 package org.bruce.vertices.extra.experiments; /* * * 淡入淡出窗口,淡出时,如果鼠标移进去了,则中止渐变。...
  • yang3wei
  • yang3wei
  • 2012年06月23日 14:41
  • 2273

vc/MFC实现窗口的淡入淡出

  • 2013年04月01日 10:37
  • 132KB
  • 下载

简单的实现播放背景音乐(淡入淡出效果)

最近在开发幻灯片的需求,首先确认项目里已经加入AudioToolbox.framework。 在此放上背景音乐播放的代码,添加淡入淡出效果,重温一下计时器的知识点。 头文件 QZSoundBoard....
  • david21984
  • david21984
  • 2013年08月22日 20:01
  • 1612

Crossfading Two Views 淡入淡出的两种观点

Crossfade animations (also know as dissolve) gradually fade out one UI component while simultaneousl...
  • sergeycao
  • sergeycao
  • 2013年04月18日 09:49
  • 855

VB窗口淡入淡出效果的一个公共类

  • 2013年03月26日 10:44
  • 1KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用两种方法快速简单的实现窗口淡入淡出
举报原因:
原因补充:

(最多只允许输入30个字)