DELPHI (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码
2024-10-16 22:36:04
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 < then
begin
sleep( - (timeend - Timestart));
end;
SplashForm.Hide;
SplashForm.Free;
Application.Run; end.
最新文章
- C#线程同步自动重置事件——AutoResetEvent
- 使用Graph工具观察FFT波形
- JavaScript 属性描述符
- 我对XCode Objective-c Cocoa的简单理解
- Hark的数据结构与算法练习之计数排序
- Model First:创建实体数据模型(ADO.NET 实体数据模型)
- 【Cocos2d-x】 HttpClient 网络通信(Http)的简单应用
- java_method_readFile读取文件文本txt
- redis怎么动态添加内存,动态配置,无需重启。
- Java中@Deprecated、@SupressWarning、@Override的作用
- 论javascript模块化的优缺
- 2_linux 常用基本命令
- 程序员 各种PDF格式电子书--免费网盘资源
- Unity制作即时战略游戏毕设
- 如何 通过 userAgent 区别微信小程序
- 如何监控 Java 垃圾回收机制: jps、jstack、jmap、jhat、jstat
- Ubuntu下安装VS code
- HTML鼠标悬浮显示隐藏 JS方法
- 前端通信:ajax设计方案(一)---集成核心请求
- 洛咕 P3645 [APIO2015]雅加达的摩天楼