TAlphaColorF = record class operator Add(const Color1, Color2: TAlphaColorF): TAlphaColorF; class operator Subtract(const Color1, Color2: TAlphaColorF): TAlphaColorF; class operator Equal(const Color1, Color2: TAlphaColorF): Boolean; class operator N
前言:网上有很多介绍delphi创建闪屏的代码,大多只是在程序开启前显示一个闪屏,但是却没有说如何在闪屏上显示程序加载的进度,于是笔者有意思介绍一下这种闪屏方式. 1.创建一个窗体(TfrmSplash),放入一个TImageBox,加载一幅图片,调整好TImageBox与图片的大小,然后在其上放入一个TLabel,name=LblStatus,用于显示加载进度文字.然后将TfrmSplash设置为不自动创建. 2.加入如下代码(代码很简单,就不用解释太多) Delphi代码 unit Un