![如何用DELPHI (VCL及FMX[Firemonkey])编写启动欢迎窗口实现代码，让用户在启动时感受到编程的乐趣？](/imgrand/s3Y4PIxw.webp)
如何用DELPHI (VCL及FMX[Firemonkey])编写启动欢迎窗口实现代码，让用户在启动时感受到编程的乐趣？
- 内容介绍
- 文章标签
- 相关推荐
本文共计115个文字，预计阅读时间需要1分钟。
VCL实现程序，名为ZhouFamily；使用Vcl.Forms、Winapi.Windows和FrmZhouFamilyMainU在FrmZhouFamilyMainU.pas中定义{FrmZhouFamilyMain}，SplashFormU在SplashFormU.pas中定义{SplashForm}，DmU在DmU.pas中定义{DM: TDat}。
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.
本文共计115个文字，预计阅读时间需要1分钟。
VCL实现程序，名为ZhouFamily；使用Vcl.Forms、Winapi.Windows和FrmZhouFamilyMainU在FrmZhouFamilyMainU.pas中定义{FrmZhouFamilyMain}，SplashFormU在SplashFormU.pas中定义{SplashForm}，DmU在DmU.pas中定义{DM: TDat}。
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.