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])启动时的欢迎窗口实现代码的主要内容,如果未能解决你的问题,请参考以下文章

VCL 和 FMX 组件如何同名?

Steema TeeChart Pro VCL FMX 2017.20 Full Suorce在Delphi XE10下的安装

创建兼容 VCL 和 FMX 的新组件

[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴

Delphi修改FMX Label字体颜色

Delphi修改FMX Label字体颜色