这篇博客介绍了如何使用Delphi编程实现启动画面的淡入淡出动画效果，通过TForm和TPngImage对象，结合UpdateLayeredWindow函数，实现图片从透明到不透明的平滑过渡，以及从不透明到透明的渐隐效果。提供了完整的FadeIn和FadeOut过程代码，以及FormCreate和FormShow事件的处理方法。
概要
提示：软件打开的时候的启动图片画面
例如：
2种方式，大家可以比对看
源代码贴上
提示：主要功能函数已经如下
procedure TForm2.FadeIn;
var
TempPNG: TPngImage;
Ticks: Cardinal;
BlendFunction: TBlendFunction;
Destination, Source: TPoint;
_pSize: TSize;
Bmp: TBitmap;
begin
Ticks := 0;
TempPNG := TPngImage.Create;
TempPNG.LoadFromFile(MyFileName);
Bmp := TBitmap.Create;
Bmp.Assign(TempPNG);
Destination := Point(Left, Top);
Source := Point(0, 0);
_pSize.cx := TempPNG.Width;
_pSize.cy := TempPNG.Height;
BlendFunction.BlendOp := AC_SRC_OVER;
BlendFunction.BlendFlags := 0;
BlendFunction.SourceConstantAlpha := 0; // from 0 to 255 transparency<
最低0.47元/天 解锁文章
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
