首页 > Windows开发 > 详细

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

时间:2019-09-22 18:20:42      阅读:218      评论:0      收藏:0      [点我收藏+]

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])启动时的欢迎窗口实现代码

原文:https://www.cnblogs.com/jijm123/p/11568392.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!