tipexplorer.dpr

来自「Delphi树和酒店式的框架」· DPR 代码 · 共 27 行

program TipExplorer;

uses
  Forms,
  TipMainForm in 'TipMainForm.pas' {FrmTipExplorer},
  AboutBoxForm in 'AboutBoxForm.pas' {FrmAboutBox},
  OptionsForm in 'OptionsForm.pas' {FrmOptions},
  SplashForm in 'SplashForm.pas' {FrmSplash};

{$R *.RES}

begin
  FrmSplash := TFrmSplash.Create( Application );
  try
    FrmSplash.Show;
    FrmSplash.Update;       { Handle any Pending Paint Messages }

    Application.Title := 'Delphi Tip Explorer';
    Application.CreateForm(TFrmTipExplorer, FrmTipExplorer);
    Application.CreateForm(TFrmAboutBox, FrmAboutBox);
  finally
    FrmSplash.Free;
  end;

  Application.Run;
end.