splash.pas

来自「火车票预定系统」· PAS 代码 · 共 55 行

unit Splash;

interface

uses
  Windows, SysUtils, Classes, Forms, jpeg, RSGLCommon, ExtCtrls, Controls;

type
  TSplashForm = class(TForm)
    imgSplash: TImage;
    tmSplash: TTimer;
    procedure tmSplashTimer(Sender: TObject);
    procedure imgSplashMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    FTimeOut: Boolean;
  public
    { Public declarations }
    property TimeOut: Boolean read FTimeOut;
  end;
var
  SplashForm: TSplashForm;
  
implementation

{$R *.DFM}

procedure TSplashForm.tmSplashTimer(Sender: TObject);
begin
  FTimeOut := True;
end;

procedure TSplashForm.imgSplashMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FTimeOut := True;
end;

procedure TSplashForm.FormCreate(Sender: TObject);
begin
  imgSplash.Picture.LoadFromFile(systemPath + conSplashFile);
  FTimeOut := False;
end;

procedure TSplashForm.FormShow(Sender: TObject);
begin
  Left := (Screen.Width - Width) div 2;
  Top := (Screen.Height - Height) div 2; 
end;

end.