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

时间:2010-03-03 17:32:15  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:成硬件优化的代码;第二种速度很快,却需要使用DirectX库。    本文结合Delphi实例代码,介绍两种简单快速的实现方法,算是一个总结吧,希望能对初学者有所帮助。一:AnimateWindow函数的使用:    (一)函数原型:
  正文:应用程序中引入图片淡入及淡出,可以让用户界面更加美观。以前报刊杂志中介绍
的常用方法有两种:一是自己写程序,诸个象素进行混合渐变;二是使用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 "用两种方法快速简单的实现窗口淡入淡出"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13023.html


关键字:

关于《用两种方法快速简单的实现窗口淡入淡出》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td