delphi (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码

DELPHI (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码

VCL里面的的实现

program ZhouFamily;

uses

Vcl.Forms,

Winapi.Windows,

FrmZhouFamilyMainU in 'FrmZhouFamilyMainU.pas' {FrmZhouFamilyMain} ,

SplashFormU in 'SplashFormU.pas' {SplashForm} ,

DmU in 'DmU.pas' {DM: TDataModule};

var

Timestart, timeend: dword;

begin

Application.Initialize;

Application.MainFormOnTaskbar := True;

SplashForm := TSplashForm.Create(Application);

SplashForm.Show;

SplashForm.Update;

Timestart := gettickcount;

Application.CreateForm(TDM, DM); // 数据模块加载

Application.CreateForm(TFrmZhouFamilyMain, FrmZhouFamilyMain); // 主窗口加载

timeend := gettickcount;

if timeend - Timestart < 1000 then

begin

sleep(1000 - (timeend - Timestart));

end;

SplashForm.Hide;

SplashForm.Free;

Application.Run;

end.

FMX里面的实现，很不完美，只是为了闪屏而闪屏,因为form的create 事件是在 Application.Run;后才执行的，如果哪位兄弟有好的改进版本，期待能通知下我！

program ZhouFamily;

uses

FMX.Forms,

System.SysUtils,

FrmZhouFamilyMainU in 'FrmZhouFamilyMainU.pas' {FrmZhouFamilyMain} ,

SplashFormU in 'SplashFormU.pas' {SplashForm} ,

DmU in 'DmU.pas' {DM: TDataModule};

{$R *.res}

var

Timestart, timeend: Tdatetime;

begin

Application.Initialize;

SplashForm := TSplashForm.Create(nil);

Timestart := gettime;

Application.ProcessMessages;

Application.CreateForm(TDM, DM);

Application.CreateForm(TFrmZhouFamilyMain, FrmZhouFamilyMain);

Application.ProcessMessages;

timeend := gettime;

if timeend - Timestart < 1000 then

begin

sleep(1000 - trunc(timeend - Timestart));

end;

SplashForm.Hide;

SplashForm.Free;

Application.Run;

end.

来源：https://www.cnblogs.com/zhqian/archive/2012/11/20/2778335.html

推荐分享