本文整理自网络,侵删。
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 创建win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示
Delphi几个进制相关的代码(hextoint、hextoasc)
更多相关阅读请进入《Delphi》频道 >>