DELPHI (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码
2021-02-02 00:28
标签：phi class The win 代码 initial windows star div VCL里面的的实现 DELPHI (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码 标签：phi class The win 代码 initial windows star div 原文地址：https://www.cnblogs.com/jijm123/p/11568392.htmlprogram 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])启动时的欢迎窗口实现代码
文章链接：http://soscw.com/index.php/essay/49725.html