splash.~pas

该系统将温度数据以类似股票K线显示方式进行分析

unit Splash;

interface

uses
  Windows, SysUtils, Classes, Forms, jpeg,  ExtCtrls, Controls, StdCtrls, kxiancommon;

type
  TSplashForm = class(TForm)
    imgSplash: TImage;
    tmSplash: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    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;
  CLOSE
end;

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

procedure TSplashForm.FormCreate(Sender: TObject);
var str:string;
//vtProduct)
begin
  FTimeOut := False;
  str :=   Application.exename;
  label3.Caption := 'OnlineTemp Ver'+ GetmyVersion(str,vtFile)
                    +',      Built '+ getmyversion(str,vtBuild) ;
end;

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

end.