splash.pas

来自「Apprehend Screen Capture Component Versi」· PAS 代码 · 共 45 行

//------------------------------------------------------------------------------
//  Apprehend 2001 Version: 1.0
//  Copyright (c) 2001 : Adirondack Software & Graphics
//  Created            : 1-09-1992
//  Last Modification  : 04-01-2001
//  Description        : Splash Unit
//------------------------------------------------------------------------------

unit Splash;

interface

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

type
  TSplashForm = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  end;

var
  SplashForm: TSplashForm;

implementation

{$R *.DFM}

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TSplashForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := Not Timer1.Enabled;
end;

end.