【控件功能】我来做练习-第2课-启动画面的制作

概要

提示：软件打开的时候的启动图片画面

例如：

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