main.dpr

来自「一个启动界面程序」· DPR 代码 · 共 25 行

program main;

uses
  Forms,
  Controls,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {splashform};

{$R *.res}

begin
Application.Initialize;
  SplashForm :=TSplashForm.Create(Application);
  SplashForm.ShowModal;
  if (SplashForm.ModalResult = mrOK) then
  begin
    Application.Title := '测试Splash窗体';
    Application.CreateForm(TMainForm, MainForm);
  SplashForm.Hide;
    SplashForm.Release;
    Application.Run;
  end;

end.