本文整理自网络,侵删。
program dxG10000;
uses
Forms,
main in 'main.pas' {fmMain},
splash in 'splash.pas' {fmSplash},
dxGridMenus in '../DemoUtils/dxGridMenus.pas';
{$R *.RES}
begin
fmSplash := TfmSplash.Create(nil); //欢迎窗口
try
fmSplash.Show;
fmSplash.Update;
Application.CreateForm(TfmMain, fmMain);
finally
fmSplash.Free;
fmSplash := nil;
end;
Application.Run;
end.
相关阅读 >>
Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决
Delphi 10.3.x 截取字符串函数substring 和copy()常用字串符处理函数用法
Delphi tdirectory.getdirectories获取子目录及文件
更多相关阅读请进入《Delphi》频道 >>