prjedit.~dpr

来自「《Kylix程序设计》一书中附带的例程源代码」· ~DPR 代码 · 共 37 行

program PrjEdit;

uses
  QForms,
  Editor in 'Editor.pas' {FrmEditor},
  About in 'About.pas' {AboutBox},
  Splash in 'Splash.pas' {FrmSplash};

var
  FrmSplash: TFrmSplash;

{$R *.res}

begin
  Application.Initialize;

  // Create a splash window
  FrmSplash := TFrmSplash.Create( Application );
  FrmSplash.Show();
  FrmSplash.Update();
  // Delay
  while FrmSplash.TimerDelay.Enabled do
  begin
    Application.ProcessMessages();
//    FrmSplash.TimerDelay.Enabled := false;
  end;

  Application.CreateForm(TFrmEditor, FrmEditor);

  // Hide the instance
  FrmSplash.Hide();
  // Free the instance
  FrmSplash.Free();

  Application.Run;
end.