DELPHI (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码
Posted jijm123
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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.
以上是关于DELPHI (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码的主要内容,如果未能解决你的问题,请参考以下文章
Steema TeeChart Pro VCL FMX 2017.20 Full Suorce在Delphi XE10下的安装