alphasplashdemo.dpr

来自「lansd aslda sldasdnaslda sdlandslasd」· DPR 代码 · 共 21 行

program AlphaSplashDemo;

{$R 'splash.res' 'splash.rc'}

uses
  Forms,
  SplashForm in 'SplashForm.pas' {FormSplash},
  Main in 'Main.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  // Application.MainFormOnTaskbar := True;
  with TFormSplash.Create(Application) do
    Execute;
  Application.Title := 'Alpha Blended Splash demo';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.