splash.pas

来自「Delphi利用MVC开发的典型例子」· PAS 代码 · 共 33 行

unit Splash;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TSplashForm = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    Bevel1: TBevel;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
  end;

var
  SplashForm: TSplashForm;

implementation

{$R *.DFM}

initialization
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;

end.