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

巴黎十二点半

巴黎十二点半

2016-02-19 20:47

下面图老师小编跟大家分享用两种方法快速简单的实现窗口淡入淡出,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~

我的主页: http://www.tommstudio.com/

在应用程序中引入图片淡入及淡出,可以让用户界面更加美观。以前报刊杂志中介绍
  的常用方法有两种:一是自己写程序,诸个象素进行混合渐变;二是使用DirectX,建立一
  个带Alpha通道的Surface。第一种,效果可以自己控制,但比较麻烦,而且一般不容易生
  成硬件优化的代码;第二种速度很快,却需要使用DirectX库。
  
      本文结合Delphi实例代码,介绍两种简单快速的实现方法,算是一个总结吧,希望能
  对初学者有所帮助。
  
  一:AnimateWindow函数的使用:
      (一)函数原型:
  

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)


  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;
  

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  
  


展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
用两种方法快速简单的实现窗口淡入淡出

多种淡入淡出方法特点实现及对比

设计软件 平面设计软件 广告设计软件
多种淡入淡出方法特点实现及对比

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

利用Win7注册表实现切换壁纸淡入淡出效果

电脑网络
利用Win7注册表实现切换壁纸淡入淡出效果

用ASP实现网页保密的两种方法

ASP
用ASP实现网页保密的两种方法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

实现树状结构的两种方法

Web开发
实现树状结构的两种方法

MAC OS X Lion下如何关闭Launchpad淡入淡出效果

电脑入门
MAC OS X Lion下如何关闭Launchpad淡入淡出效果

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

在Firebird里如何防止空值扩散

在Firebird里如何防止空值扩散

强角点检测算子的Pascal实现代码

强角点检测算子的Pascal实现代码
下拉加载更多内容 ↓