Delphi控件源码

开发平台：

Delphi

QSplash1.dpr：源码内容

							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.

						