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;
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18