QSplash1.dpr
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:
Delphi控件源码
开发平台:
Delphi
- program QSplash1;
- uses
- QForms,
- MainSpF in 'MainSpF.pas' {Form1},
- AboutF in 'AboutF.pas' {AboutBox};
- {$R *.res}
- var
- SplashAbout: TAboutBox;
- begin
- Application.Initialize;
- // create and show the splash form
- SplashAbout := TAboutBox.Create (Application);
- try
- SplashAbout.MakeSplash;
- // standard code...
- Application.CreateForm(TForm1, Form1);
- SplashAbout.Close;
- finally
- SplashAbout.Free;
- end;
- Application.Run;
- end.