QSplash1.dpr
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. program QSplash1;
  2. uses
  3.   QForms,
  4.   MainSpF in 'MainSpF.pas' {Form1},
  5.   AboutF in 'AboutF.pas' {AboutBox};
  6. {$R *.res}
  7. var
  8.   SplashAbout: TAboutBox;
  9. begin
  10.   Application.Initialize;
  11.   // create and show the splash form
  12.   SplashAbout := TAboutBox.Create (Application);
  13.   try
  14.     SplashAbout.MakeSplash;
  15.     // standard code...
  16.     Application.CreateForm(TForm1, Form1);
  17.   SplashAbout.Close;
  18.   finally
  19.     SplashAbout.Free;
  20.   end;
  21.   Application.Run;
  22. end.