splashfrm.pas

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

unit Splashfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, RXCtrls, StdCtrls, ComCtrls;

type
  TSplashForm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    TT:Byte;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SplashForm: TSplashForm;


implementation

{$R *.dfm}

procedure TSplashForm.FormShow(Sender: TObject);
begin
    TT:=0;
    Label1.Font.Color:=$ee0000;
    Timer1.Enabled:=True;
end;

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
    if TT<15 then
    Label1.Font.Color:=Label1.Font.Color+$001111;
    TT:=TT+1;
    if TT>30 then Close;
end;

end.